能否把导入的文本文件数据拆分呢?(空格隔开)

Private Sub 拆分字段_Click()
    DoCmd.SetWarnings False
    If searchTable("表2") = False Then
        DoCmd.RunSQL "select * INTO 表2 from( SELECT " & _
                     "Splitstr(表1.字段,0) as 字段1,Splitstr(表1.字段,1) as 字段2, " & _
                     "Splitstr(表1.字段,2) as 字段3," & _
                     "Splitstr(表1.字段,3) as 字段4 FROM 表1);", True
    Else
        DoCmd.RunSQL "delete from 表2"
        DoCmd.RunSQL "INSERT INTO 表2 (字段1,字段2,字段3,字段4) SELECT " & _
                     "Splitstr(表1.字段,0),Splitstr(表1.字段,1), " & _
                     "Splitstr(表1.字段,2)," & _
                     "Splitstr(表1.字段,3) FROM 表1;"
    End If
    DoCmd.SetWarnings True
    MsgBox "已将原字段拆分为4列,见表2！"

End Sub

我想把 导入文本文件的 导入规格 用 VBA 代码，请问可以吗？