Поиск ошибки в программе - VB

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

Задание такое:Дан текст, в котором встречаются арифметические выражения вида a Å b, где Å - один из знаков +, -, *, /. Выписать все арифметические выражения и вычислить их значения. Кому не трудно помогите разобраться. Тему работы с файловыми и строковыми типами данных почти не понял

                    Листинг программы
                
 
                        
                          
                    
Dim i, plus, minus, umnojenie, delenie As Integer
Private Sub Command1_Click()
Picture1.Cls
 
For i = 1 To Len(Text1.Text)
If a >= "0" And a <= "9" Then
If b >= "0" And b <= "9" Then
 
If Mid(Text1.Text, i, 1) = "a + b" Then
plus = Val(a) + Val(b)
 
If Mid(Text1.Text, i, 1) = "a - b" Then
minus = Val(a) - Val(b)
 
If Mid(Text1.Text, i, 1) = "a * b" Then
umnojenie = Val(a) * Val(b)
 
If Mid(Text1.Text, i, 1) = "a / b" Then
delenie = Val(a) / Val(b)
End If
End If
End If
End If
End If
End If
 
Picture1.Print "a + b ="; plus
Picture1.Print "a - b ="; minus
Picture1.Print "a * b ="; umnojenie
Picture1.Print "a / b ="; delenie
End Sub
 
Next

Решение задачи: «Поиск ошибки в программе»

textual
                            Листинг программы 
                        
 
                            
                        
Dim a%, b%, c%, m$, m1$
 
Private Sub Command1_Click()
List1.Clear
 
For i = 1 To Len(Text1.Text):
   If Mid(Text1.Text, i, 1) = "+" Then 'если встретили "+"
      m = Mid(Text1.Text, i - 1, 3) 'выписываем это арифметическое выражение в отдельную строку
      a = Val(Mid(m, 1, 1)) 'определяем 1-е число
      b = Val(Mid(m, 3, 1)) 'определяем 2-е число
      c = a + b 'производим арифметическое действие
      m1 = m + "=" + CStr(c) 'составляем ЕГО полную строковую запись
      List1.AddItem m1 'и выводим эту запись в ListBox
   End If
 
   If Mid(Text1.Text, i, 1) = "-" Then 'если встретили "-"
      m = Mid(Text1.Text, i - 1, 3)
      a = Val(Mid(m, 1, 1))
      b = Val(Mid(m, 3, 1))
      c = a - b
      m1 = m + "=" + CStr(c)
      List1.AddItem m1
   End If
   
   If Mid(Text1.Text, i, 1) = "*" Then 'если встретили "*"
      m = Mid(Text1.Text, i - 1, 3)
      a = Val(Mid(m, 1, 1))
      b = Val(Mid(m, 3, 1))
      c = a * b
      m1 = m + "=" + CStr(c)
      List1.AddItem m1
   End If
   
   If Mid(Text1.Text, i, 1) = "/" Then 'если встретили "/"
      m = Mid(Text1.Text, i - 1, 3)
      a = Val(Mid(m, 1, 1))
      b = Val(Mid(m, 3, 1))
      c = a / b
      m1 = m + "=" + CStr(c)
      List1.AddItem m1
   End If
Next i
End Sub