VB中如何把.txt文件转换成excel文件呢?说的详细点,谢谢,最好有代码.十分十分感谢

如题 
比如.txt文件中是这样的文件格式: 

设备名 error1 error2 error3 
dev1 没电 无信号 无人操作 
dev2 没电 无信号 无人操作 
dev3 没电 无信号 无人操作

要在程序中实现 --------------------编程问答-------------------- 先从文本文件读入数组，再用SPLIT函数分割，
分割好之后再一格一格写入EXCEL表 --------------------编程问答-------------------- Dim xls As Object, xlsBook As Object, xlsSheet As Object
Set xls = CreateObject("Excel.Application")
Set xlsBook = xls.WorkBooks.Add(1)
Set xlsSheet = xlsBook.Worksheets(1)
xlsSheet.Name = "示例"
Open "D:\示例.txt" For Input As #100
R=1
Do While Not EOF(100)
    Line Input #100,S
    D=Split(S," ")
    For C=0 To Ubound(D)
        xlsSheet.Cells(R, C + 1) = D(C)
    Next
    R=R+1
Loop
Reset
xlsBook.Close
xls.Quit
Set xls = Nothing
--------------------编程问答-------------------- '直接重命名
Name "D:\示例.txt" as "D:\示例.CSV"

--------------------编程问答-------------------- ls 强

应该是   

fileCopy  "D:\示例.txt", "D:\示例.CSV"
kill      "D:\示例.txt"

——VB 自带没有 rename 

当作数据源来处理，也很好的。 --------------------编程问答-------------------- 强！！！学习 --------------------编程问答-------------------- 各位大哥,别开玩笑啊!晕..............

很急呢!!!!! --------------------编程问答-------------------- 没有开玩吧，szjhxu(天野) ( )的方法很好哇！

补充：VB ,  基础类