Visual Basic - Separar una cadena de texto

Hola. Ya he comentado esta duda anteriormente en el foro.
El resultado es el siguiente. Funciona pero me parece que tendria q haber alguna manera distinta xa separar una cadena por comas como la siguiente:

sat= "$GPGSV,2,1,4,,78,,40,20,6700,100,30,25,40,009,10,67,90,240,,*hh"

el código que he realizado es el siguiente:
Alguien sabe como podria mejorarlo??me parece excesivamente largo!!!
GRACIAS

Dim i, j, lng, aux As Long
lng = Len(sat)
i = 14
'**************satelite 1
aux = InStr(i, sat, ",", 1)
aux = aux - i
Text1.Text = Mid(sat, i, aux)
i = i + aux + 1
aux = InStr(i, sat, ",", 1)
aux = aux - i
Text2.Text = Mid(sat, i, aux)
i = i + aux + 1
aux = InStr(i, sat, ",", 1)
aux = aux - i
Text3.Text = Mid(sat, i, aux)
i = i + aux + 1
aux = InStr(i, sat, ",", 1)
aux = aux - i
Text4.Text = Mid(sat, i, aux)
i = i + aux + 1

y sigue así en adelante...

Te envío a tu correo un programilla, yo lo he probado y creo que funciona
Saludos Pola

un ejemplo similar al anterior pero por medio de un for each loop
ejemplo:

Cadena es la cadena de texto

Dim Palabra As Variant

For Each Palabra in Split(Cadena, ",")
MsgBox(Palabra)
Next Palabra

Palabra contendra cada palabra separados por comas
Chao

Más sencillo aún:
s = cadena que quieres separar
CARACTER_SEPARACION = "," (una coma)

Dim v as variant
v = Split(s,CARACTER_SEPARACION)

En v(0) tendrás el primero, en v(1), el segundo...
Un saludo.