Dim operator As Single ' Globale Variable die den Operator speichert.
 
' Diese Funktion gibt die Anzahl der Zahlen bis zum Operator zurück
Private Function howmanyleft(Kette As String) As Integer
Dim counter As Integer
counter = 1
 
Dim io As Boolean
io = True
Dim check As String
' Die Schleife geht so lange jeden Buchstaben durch,
' bis sie auf einen Operator trift und zählt entsprechend
' den Counter hoch.
Do While io = True
 
check = Mid(Kette, counter, 1)
If check = "+" Or check = "-" Or check = "*" Or check = "/" Then io = False
counter = counter + 1
Loop
 
howmanyleft = counter - 2 ' Schleifenbedingt zählt der Counter immer 2 zuviel
' Zurückgegeben wird jetzt die Anzahl der Zahlen vor dem Operator
End Function
 
' Diese Funktion gibt die Anzahl der Zahlen nach dem Operator zurück.
Private Function howmanyright(Kette As String) As Integer
Dim counter As Integer
counter = 1
 
Dim laenge As Integer
 
Dim io As Boolean
io = True
Dim check As String
 
Do While io = True
 
check = Mid(Kette, counter, 1)
If check = "+" Or check = "-" Or check = "*" Or check = "/" Then io = False
counter = counter + 1
Loop
 
counter = counter - 2 ' Bis hier das selbe wie howmanyleft
 
laenge = Len(Kette) - counter
' Wenn man von der Gesamtlänge die Anzahl der Zahlen vor dem
' Komma subtrahiert bleiben die Restzahlen und der Operator übrig.
 
howmanyright = laenge - 1 ' Den Operator ziehen wir jetzt noch von der Anzahl 
' ab.
End Function
 
 
Private Sub Text1_DblClick()
    If operator = 0 Then ' Wenn kein Operator eingegeben wurde.
    MsgBox "Keine Richtige Rechnung eingegeben!", vbExclamation
Else ' Wenn Operator steht.
 
    Dim Rechnung As String
    Rechnung = Text1.Text
    Dim Zahl1 As Integer
    Dim Zahl2 As Integer
    Dim Ergibnis As Integer
 
    Zahl1 = Left(Rechnung, howmanyleft(Rechnung)) ' Zahl vor dem Operator
    Zahl2 = Right(Rechnung, howmanyright(Rechnung)) ' Zahl nach dem Operator
 
    ' Weist dem Operator die entsprechende Rechnung zu
    If operator = 43 Then Ergebnis = Zahl1 + Zahl2
    If operator = 45 Then Ergebnis = Zahl1 - Zahl2
    If operator = 42 Then Ergebnis = Zahl1 * Zahl2
    If operator = 47 Then Ergebnis = Zahl1 / Zahl2
 
 
    Text1.Text = Ergebnis
End If
 
operator = 0 ' Setzt den Operator zurück.
 
 
 
End Sub
 
Private Sub Text1_KeyPress(KeyAscii As Integer)
' Sorgt dafür das nur zahlen eingegeben werden können.
 
Select Case KeyAscii
    Case 48 To 57, 8       ' Zahlen und Backspace
    Case 42, 43, 45, 47    ' + - * /
    If KeyAscii = 42 Or 43 Or 45 Or 47 Then operator = KeyAscii
    ' Operator der eingegeben wurde speichern in Globaler Variable operator.
    Case Else                   ' alle anderen Zeichen ignorieren
      KeyAscii = 0
  End Select
 
 
End Sub