Vba 从文本文件读取数据并进行定界

我有一个Excel 2010电子表格，我正在从一个.txt文件（将来还有另一个.xls文件）中读取信息

此文本文件每行有3个元素；firtname、姓氏和职务，每个元素用逗号分隔。我有数据读取和粘贴到Excel中，但是每一行都粘贴到一个单元格中。我希望将每个元素粘贴到不同的列中。我知道我应该尝试划界，但我就是搞不懂语法

我的问题是如何分离每个元素并将其粘贴到自己的单元格中？我目前使用逗号分隔.txt文件中的每个元素，但将来的文件可能会使用制表符、句号、分号等。我如何扩展它以覆盖所有基础

下面是我的代码，在我的代码下面是一个虚拟数据示例

Sub FetchDataFromTextFile()
    Dim i As Long
    Dim LineText As String
    Open "C:\mytxtfile.txt" For Input As #24
    i = 2
    While Not EOF(24)
        Line Input #24, LineText
        ActiveSheet.Cells(i, 2).Value = LineText
        P = Split(Record, ",")
        i = i + 1
    Wend
    Close #24
End Sub

约翰，多伊，老板

约翰尼，斯蒂尔，经理

简，史密斯，雇员

注：在其他编程语言中具有竞争力，但在大约6或7年的时间里没有使用VB。我似乎从来都不懂VB语法，所以请像对待新手一样对待我

Sub FetchDataFromTextFile()
    Dim i As Long
    Dim LineText As String
    Open "C:\mytxtfile.txt" For Input As #24
    i = 2
    While Not EOF(24)
        Line Input #24, LineText
            Dim arr
            arr = Split(CStr(LineText), ", ")
            For j = 1 To 
                ActiveSheet.Cells(i, j).Value = arr(j - 1)
            Next j
            i = i + 1
    Wend
    Close #24
End Sub

---

对于

在中缺少j=1到的内容对于j=1到，代码的其余部分是要导入的列数。也就是说，对于j=1到7，

。这只是给那些像我一样迷路的人的参考。