Дано словесное описание целого числа, вывести значение этого числа в цифровом виде

Option Explicit
Dim objDic As New Dictionary
 
Private Sub LoadDic()
    
    With objDic
        .Add 'nol'', 0
        .Add 'odin', 1
        .Add 'dva', 2
        .Add 'tri', 3
        .Add 'chetire', 4
        .Add 'pyat'', 5
        .Add 'shest'', 6
        .Add 'sem'', 7
        .Add 'vosem'', 8
        .Add 'devyat'', 9
        .Add 'desyat'', 10
        .Add 'odinnadzat'', 11
        .Add 'dvenadzat'', 12
        .Add 'trinadzat'', 13
        .Add 'chetirnadzat'', 14
        .Add 'pyatnadzat'', 15
        .Add 'shestnadzat'', 16
        .Add 'semnadzat'', 17
        .Add 'vosemnadzat'', 18
        .Add 'devyattnadzat'', 19
        .Add 'dvadzat'', 20
        .Add 'tridzat'', 30
        .Add 'sorok', 40
        .Add 'pyatdesyat', 50
        .Add 'shest'desyat', 60
        .Add 'semdesyat', 70
        .Add 'vosemdesyat', 80
        .Add 'devyanosto', 90
        .Add 'sto', 100
    End With
                                
End Sub
 
Private Sub cmdWordToNumber_Click()
    Dim strChislo() As String
    
    Dim i As Integer
    Dim intTotal As Integer
    
    strChislo = Split(txtSlovo.Text, ' ', , vbBinaryCompare)
    
    For i = LBound(strChislo) To UBound(strChislo)
        intTotal = intTotal + objDic(strChislo(i))
    Next i
    
    txtZifra.Text = CStr(intTotal)
    
End Sub
 
Private Sub Form_Load()
    LoadDic
End Sub

Dim s, str() As String
Dim i As Integer
Dim a, t As Integer
 
Private Sub Command1_Click()
Text2.Text = ''
t = 0
s = Trim(Text1.Text) + ' '
 
str() = Split(s, , -1)
For i = (UBound(str) - 1) To 0 Step -1
 
    If str(i) = 'один' Then t = 1
    If str(i) = 'два' Then t = 2
    If str(i) = 'три' Then t = 3
    If str(i) = 'четыре' Then t = 4
    If str(i) = 'пять' Then t = 5
    If str(i) = 'шесть' Then t = 6
    If str(i) = 'семь' Then t = 7
    If str(i) = 'восемь' Then t = 8
    If str(i) = 'девять' Then t = 9
    If str(i) = 'десять' Then t = 10
    If str(i) = 'одиннадцать' Then t = 11
    If str(i) = 'двенадцать' Then t = 12
    If str(i) = 'тринадцать' Then t = 13
    If str(i) = 'четырнадцать' Then t = 14
    If str(i) = 'пятнадцать' Then t = 15
    If str(i) = 'шестнадцать' Then t = 16
    If str(i) = 'семнадцать' Then t = 17
    If str(i) = 'девятнадцать' Then t = 19
    If str(i) = 'двадцать' Then t = 20
    If str(i) = 'тридцать' Then t = 30
    If str(i) = 'сорок' Then t = 40
    If str(i) = 'пятьдесят' Then t = 50
    If str(i) = 'шестьдесят' Then t = 60
    If str(i) = 'семьдесят' Then t = 70
    If str(i) = 'восемьдесят' Then t = 80
    If str(i) = 'девяносто' Then t = 90
    If str(i) = 'сто' Then t = 100
    If str(i) = 'двести' Then t = 200
  a = a + t
Next i
   
Text2.Text = a
End Sub