темо по visual basic работа с текстом

[Артегор]

а) Текст задан следующим образом: первый символ - цифра, ука-
зывающая длину первого слова, за первым словом вновь цифра, указы-
вающая длину второго слова (длина каждого слова < 9), и т.д. Вместо
цифр, указывающих длину слова, вставить числа, указывающие координа-
ту начала следующего слова.


часть кода написал
Private Sub cmd1_Click()
Dim a As String, k As Byte, j As Byte, y As Variant, main As String, t As Variant, q As String
a = Txt1.Text
k = Len(a)
For j = 1 To k
y = Mid(a, j, 1)
Select Case y
Case 0 To 9
t = Mid(a, j + 1, y)
main = main & (j + 1) & t
Txt2.Text = main
End Select
Next j
End Sub

но он не проверяет случай двухзначных чисел,пробовал какие-то варианты вылетает с грохотом (((

[Артегор]

пример
задаётся 1п3при5приве
выводит 2п4при8приве