TXT文本中的一段数据是用用其它软件的计算结果输出，我现在想把输出结果取出来，放在EXCEL表格中，更直观
请高手指点！
不胜感激

引用Excel组件

Dim A As String
Dim B As String
Private Sub Form_Load()
A = "c:\123.txt"
B = "c:\123.xls"
Open A For Binary As #1
A = Input(LOF(1), 1)
Close 1
Open B For Output As #2
Print #2, A
Close #2
End Sub

如果可以，用csv格式。