цифры прописью

[ivan-makeem]

здравствуйте есть следующая проблема при вводе следующих значений путает цифры 12на 20,14 на 40,15на32 и т.д в чём может быть проблемма вот программа
Private Sub CommandButton1_Click()
a = 0
d = 0
c = 0
d = 0
e = 0
h = 0
j = 0
l = 0
m = ""
Dim g(40)
Dim k(40)
Dim n(99999)
n(0) = ""
n(1) = ""
n(2) = ""
n(3) = ""
n(4) = ""
n(5) = ""
n(6) = ""
n(7) = ""
n(8) = ""
n(9) = ""
n(10) = ""
n(11) = ""
n(12) = ""
n(13) = ""
n(14) = ""
n(15) = ""
n(16) = ""
n(17) = ""
n(18) = ""
n(19) = ""
n(20) = ""
n(21) = ""
n(22) = ""
n(23) = ""
n(24) = ""
n(25) = ""
n(26) = ""
n(27) = ""
n(28) = ""
n(29) = ""
n(30) = ""
n(31) = ""
n(32) = ""
n(33) = ""
n(34) = ""
n(35) = ""
n(36) = ""
n(37) = ""
n(38) = ""
n(39) = ""
n(40) = ""
n(41) = " "
Label1.Caption = m
'
a = TextBox1.Text
'
b = Trim(a)
'
c = Len(b)
'
For e = 1 To c
d = Mid(a, e, [1])
g(e) = d
Next e
'
For j = 0 To c
k(j) = Val(g(j))
Next j
If c = 1 Then GoTo
If c = 2 Then GoTo

:
For i = 0 To c
If k(i) = 0 And k(i + 1) = 0 Then m = n(0)
If k(i) = 1 And k(i + 1) = 0 Then m = n(1)
If k(i) = 2 And k(i + 1) = 0 Then m = n(2)
If k(i) = 3 And k(i + 1) = 0 Then m = n(3)
If k(i) = 4 And k(i + 1) = 0 Then m = n(4)
If k(i) = 5 And k(i + 1) = 0 Then m = n(5)
If k(i) = 6 And k(i + 1) = 0 Then m = n(6)
If k(i) = 7 And k(i + 1) = 0 Then m = n(7)
If k(i) = 8 And k(i + 1) = 0 Then m = n(8)
If k(i) = 9 And k(i + 1) = 0 Then m = n(9)
Next i
GoTo dsdjl
:
For i = 0 To c
If k(i) = 0 And k(i + 1) = 1 Then m = n(10)
If k(i) = 1 And k(i + 1) = 1 Then m = n(11)
If k(i) = 2 And k(i + 1) = 1 Then m = n(12)
If k(i) = 3 And k(i + 1) = 1 Then m = n(13)
If k(i) = 4 And k(i + 1) = 1 Then m = n(14) + "p"
If k(i) = 5 And k(i + 1) = 1 Then m = n(15)
If k(i) = 6 And k(i + 1) = 1 Then m = n(16)
If k(i) = 7 And k(i + 1) = 1 Then m = n(17)
If k(i) = 8 And k(i + 1) = 1 Then m = n(18)
If k(i) = 9 And k(i + 1) = 1 Then m = n(19)
If k(i) = 2 And k(i + 1) = 0 Then m = n(20) + " p"
If k(i) = 2 And k(i + 1) = 1 Then m = n(20) + n(41) + n(1)
If k(i) = 2 And k(i + 1) = 2 Then m = n(20) + n(41) + n(2)
If k(i) = 2 And k(i + 1) = 3 Then m = n(20) + n(41) + n(3)
If k(i) = 2 And k(i + 1) = 4 Then m = n(20) + n(41) + n(4)
If k(i) = 2 And k(i + 1) = 5 Then m = n(20) + n(41) + n(5)
If k(i) = 2 And k(i + 1) = 6 Then m = n(20) + n(41) + n(6)
If k(i) = 2 And k(i + 1) = 7 Then m = n(20) + n(41) + n(7)
If k(i) = 2 And k(i + 1) = 8 Then m = n(20) + n(41) + n(8)
If k(i) = 2 And k(i + 1) = 9 Then m = n(20) + n(41) + n(9)
If k(i) = 3 And k(i + 1) = 0 Then m = n(21)
If k(i) = 3 And k(i + 1) = 1 Then m = n(21) + n(41) + n(1)
If k(i) = 3 And k(i + 1) = 2 Then m = n(21) + n(41) + n(2)
If k(i) = 3 And k(i + 1) = 3 Then m = n(21) + n(41) + n(3)
If k(i) = 3 And k(i + 1) = 4 Then m = n(21) + n(41) + n(4)
If k(i) = 3 And k(i + 1) = 5 Then m = n(21) + n(41) + n(5)
If k(i) = 3 And k(i + 1) = 6 Then m = n(21) + n(41) + n(6)
If k(i) = 3 And k(i + 1) = 7 Then m = n(21) + n(41) + n(7)
If k(i) = 3 And k(i + 1) = 8 Then m = n(21) + n(41) + n(8)
If k(i) = 3 And k(i + 1) = 9 Then m = n(21) + n(41) + n(9)
If k(i) = 4 And k(i + 1) = 0 Then m = n(22)
If k(i) = 4 And k(i + 1) = 1 Then m = n(22) + n(41) + n(1)
If k(i) = 4 And k(i + 1) = 2 Then m = n(22) + n(41) + n(2)
If k(i) = 4 And k(i + 1) = 3 Then m = n(22) + n(41) + n(3)
If k(i) = 4 And k(i + 1) = 4 Then m = n(22) + n(41) + n(4)
If k(i) = 5 And k(i + 1) = 5 Then m = n(21) + n(2)
If k(i) = 5 And k(i + 1) = 6 Then m = n(21) + n(2)
If k(i) = 5 And k(i + 1) = 7 Then m = n(21) + n(2)
If k(i) = 5 And k(i + 1) = 8 Then m = n(21) + n(2)
If k(i) = 5 And k(i + 1) = 9 Then m = n(21) + n(2)
If k(i) = 5 And k(i + 1) = 0 Then m = n(21) + n(2)
If k(i) = 5 And k(i + 1) = 1 Then m = n(21) + n(2)
If k(i) = 5 And k(i + 1) = 2 Then m = n(21) + n(2)
If k(i) = 5 And k(i + 1) = 3 Then m = n(21) + n(2)
If k(i) = 5 And k(i + 1) = 4 Then m = ""
If k(i) = 5 And k(i + 1) = 5 Then m = ""
If k(i) = 5 And k(i + 1) = 6 Then m = ""
If k(i) = 5 And k(i + 1) = 7 Then m = ""
If k(i) = 5 And k(i + 1) = 8 Then m = ""
If k(i) = 5 And k(i + 1) = 9 Then m = ""
If k(i) = 9 And k(i + 1) = 0 Then m = ""
Next i
GoTo dsdjl
:
dsdjl:
Label1.Caption = m
End Sub