-1,0,3,0,5,4,6,7,8,9

Name: [ Value -1 ]
Nationality: [ Value 0 ]
Experience: [ Value 3 ]

Dim rawData as string

Dim FileText as String
Dim FileNo as Integer
FileNo = FreeFile
Open "C:test.txt" For Input As #FileNo 'you should change the file path
Line Input #FileNo, FileText 'read the whole line
rawData = sFileText 'store the first line of the text file in 'rawData'
Close #FileNo

Dim data() as string 'an array that will hold each value
data = Split(rawData, ",") 'split 'rawData' with a comma as delimiter

Dim newData as String
newData = data(0) & "," & data(1) & "," & data(2) 'etc.