修改txt文件的问题！大家帮帮我.

数据如下：
-11.41 , -11.30 , -11.58 , -13.64 , -13.65 ,
-14.30 , -10.89 , -12.18 , -13.79 , -11.99 ,
-15.11 , -16.45 , -11.79 , -13.96 , -14.11 ,
-12.95 , -13.23 , -13.00 , -14.08 , -15.28 ,
-10.65 , -13.81 , -13.19 , -13.71 , -11.98 ,
-14.75 , -13.36 , -14.63 , -11.60 , -14.18 ,
-14.29 , -13.88 , -15.46 , -13.01 , -11.81
如何用vb程序将以上数据变成一列？即在每个数据逗号后插入回车？

感谢

'如果这个文件是 d:\1.txt
'程序如下

Private Sub Form_Load()
Dim temp, content As String
Open "d:\1.txt" For Input As #1
Do Until EOF(1)
Input #1, temp
content = content & temp
Loop
Close #1

Open "d:\1.txt" For Output As #1
Print #1, content
Close #1
End Sub

Dim temp, content As String
Open "c:\1.txt" For Input As #1 '1.txt为源文件
Do Until EOF(1)
Line Input #1, temp
content = content & temp
Loop
Close #1

'如果要去除数据中的空格，将下句的注释号（'）去除
'content = Replace(content, " ", "")

'下句在每个"，"后加入换行回车
content = Replace(content, ",", "," & vbCrLf)

'如果要去掉数据后的","，将下句的注释号（'）去除
'content = Replace(content, ",", "")

Open "c:\2.txt" For Output As #2 '2.txt为转换后的文件