跪求VB读文本问题，急急急

Private Sub Command1_Click()
Dim linestr
Dim allstr
Open "d:\1.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, linestr
allstr = allstr & Trim(linestr) & " "
Loop
Close #1
allstr = Trim(allstr)
allstr = Replace(allstr, " ", vbCrLf)
Open "d:\1.txt" For Output As #2
Print #2, allstr
Close #2
End Sub

'复制下面代码，运行即可。

Private Sub Form_Load()
Dim i As Integer, S As String, b() As String
Dim FileName As String
FileName = InputBox("请输入要转换的文件名：")
If FileName = "" Or Dir(FileName) = "" Then
MsgBox "文件名不正确！"
Exit Sub
End If
Open FileName For Input As #1 '打开要转换的文件
Open "c:\~2.txt" For Output As #2 '打开临时文件
Do While Not EOF(1)
Line Input #1, S '取出一行
S = Trim(S)
Do While InStr(S, " ") > 0 '把多空格转换成