vb 如何在每个字符中间加空格

看看我这个行不行？

Private Sub Command1_Click()
'有几万个字，最好这样做
Dim s As String
Dim x As String
Dim i, ask As Integer
Open "d:\1.txt" For Input As #1 '转换前的源文件，改成你自己文件的路径
Open "d:\2.txt" For Output As #2 '转换后保存在2.txt
While Not EOF(1)
Line Input #1, s '按行读取源文件
Print s
's=replace(s,"，","")这句可选，如果你的文件没有任何杂项(标点，空格等)，这句可省略，如果有杂项，要用replace替换他们再做其他操作
s = Trim(s) '去掉两端的空格
For i = 1 To Len(s)
x = x & " " & Mid(s, i, 1) '挨个截取字符，并在其前面添加空格
Next
Wend
Print #2, x '写入到2.txt
Close #2
Close #1
ask = MsgBox("转换完成,现在打开吗?", vbInformation + vbYesNo, "完成") '点击"是"，打开文件
If ask = vbYes Then Shell "notepad.exe d:\2.txt", vbNormalFocus
End Sub

最终文件是以单行显示的，若想要多行显示，请用下面的代码

Private Sub Command1_Click()
'有几万个字，最好这样做
Dim s As String
Dim