VBS читать текстовый файл построчно и разделить его запятой

Question

имеет текстовый файл с этим

name1,21
name2,33
name4,22

как мне прочитать и сохранить это в другой переменной, например

name= name1
age= 21

распечатайте это и выполните цикл до конца этого файла

распечатка будет

имя: имя1 - 21 год

это то, что я пробовал, но окно с сообщением, которое я получаю, пусто

Const ForReading = 1 

Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objTextFile = objFSO.OpenTextFile("C:\my.txt", ForReading) 

strOutput = ""

Do Until objTextFile.AtEndOfStream 
    strNextLine = objTextFile.Readline 
    arrServiceList = Split(strNextLine , ";")

    If (UBound(arrServiceList) >= 6) Then
        strOutput = strOutput & "name: " & arrServiceList(0) & ", age: " & arrServiceList(6) & vbCrLf
    End If
Loop 

WScript.Echo strOutput

все, что я получаю, это пустое поле

Answer 1

наконец-то удалось заставить его работать, просто поделился, ниже мой код:

Set fso=CreateObject("Scripting.FileSystemObject")
filename = "C:\my.txt"
listFile = fso.OpenTextFile(filename).ReadAll
listLines = Split(listFile, vbCrLf)

i = 0

For Each line In listLines
Dim arr
arr = Split(line,",")
WScript.Echo CStr(i) + " Name: " + arr(1)+ " age: "+arr(0)
Next

не уверен, что это лучшее решение, кто-нибудь поправился? сначала я делю его построчно, затем из этой строки делю запятую