Visual Basic - Archivos txt

Hola, cómo puedo hacer para leer en un String donde las palabras se encuentran separadas por coma, cada palabra. O sea, necesito leer has la coma.

Puedes usar la funcion instr(). Por ejemplo:

Dim li_pos As Integer
Dim li_new_pos As Integer
Dim li_len As Integer

Dim lb_hay_coma As Boolean

Dim palabras As String

lb_hay_coma = False
palabras = Text1.Text
li_pos = 1
li_new_pos = InStr(1, palabras, ",")

Do While li_new_pos > 0

lb_hay_coma = True

li_len = li_new_pos - li_pos
MsgBox "aqui hay una palabra: " & Mid(palabras, li_pos, li_len)
li_pos = li_new_pos + 1
li_new_pos = InStr(li_pos, palabras, ",")
Loop

If lb_hay_coma Then

MsgBox "ultima palabra: " & Mid(palabras, li_pos, Len(palabras) - (li_pos - 1))
Else

MsgBox "solo hay una palabra :" & palabras
End If

Si te refieres al archivo de texto que mencionaste el día de ayer, si cada registro tiene sus campos separados por comas puedes hacer:

Dim Campos As Variant

Campos = Split(Lineas(i),",")