Как умножить два числа - VB

Формулировка задачи:

На форме находятся кнопка и текстовое поле. Вы вводите в текстовое поле следующий текст "88 умножить 77". Программа выдаст вам результат при любых целых числах. Ну а если вместо слова "умножить" вы поставите "плюс", то программа сложит заданные числа. А что тут такого особенного? - спросит читатель. Ничего. Если не считать, что нечто подобное я собираюсь поместить в файл для создаваемой мною разговорной программы с искусственным интеллектом. Отныне эта программа будет уметь оперировать с числами, например сравнивать их. примечание Конечно в реальной программе вопрос будет звучать примерно так "сколько будет если 77 умножить на 88" (но это мелочи) Всё познаётся в сравнении... или нет?

                    Листинг программы
                
 
                        
                          
                    
Option Explicit
Dim T As String, S As String
Dim A&, B&, n1%, n2%
 
Private Sub Command1_Click()
    Cls
    T = txtT.Text
    A = Val(T)
    n1 = InStr(T, " ")
    n2 = InStrRev(T, " ")
    S = Mid(T, n2)
    B = Val(S)
    S = Mid(T, n1 + 1, n2 - n1 - 1)
    
    If S = "умножить" Then Print A * B
    If S = "плюс" Then Print A + B
End Sub

Решение задачи: «Как умножить два числа»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Dim aTemp() As String
Dim s As String
 
aTemp = Split(Trim(txtT.Text), " ")
     s = LCase(aTemp(1))
     Select Case s
           Case "умножить"
                  Print aTemp(0) * Ubound(aTemp)
           Case "плюс"
                  Print aTemp(0) + Ubound(aTemp)
           Case Else
                  Print "Моя твоя не понимать"
      End Select