Cómo leer y mostrar una cadena de serie en vb

s = "$GPRMC, 013400.000, A, 4149.1069, N, 12326.2027, E, 0.00, 108.72, 220812,,, A*6A"

i1 = InStr(1, s, ","")

i2 = InStr(i1, s, ".")

Texto1.Text = Mid(s, i1 1, i2 - i1 - 1)

Texto El nombre que se muestra en el cuadro es Texto1