Dim Zahl1 As String
Dim Rechenart As String

Private Sub cmd0_Click()
        txtErgebnis = txtErgebnis + "0"
    'Display = Display + 0
    
End Sub

Private Sub cmd1_Click()
        txtErgebnis = txtErgebnis + "1"
    'Display = Display + 1
    
End Sub

Private Sub cmd2_Click()
        txtErgebnis = txtErgebnis + "2"
    'Display = Display + 2
    
End Sub

Private Sub cmd3_Click()
        txtErgebnis = txtErgebnis + "3"
    'Display = Display + 3
    
End Sub

Private Sub cmd4_Click()
        txtErgebnis = txtErgebnis + "4"
    'Display = Display + 4
    
End Sub

Private Sub cmd5_Click()
        txtErgebnis = txtErgebnis + "5"
    'Display = Display + 5
    
End Sub

Private Sub cmd6_Click()
        txtErgebnis = txtErgebnis + "6"
    'Display = Display + 6
    
End Sub

Private Sub cmd7_Click()
        txtErgebnis = txtErgebnis + "7"
    'Display = Display + 7
    
End Sub

Private Sub cmd8_Click()
        txtErgebnis = txtErgebnis + "8"
    'Display = Display + 8
    
End Sub
Private Sub cmd9_Click()
        txtErgebnis = txtErgebnis + "9"
    'Display = Display + 9
    
End Sub

Private Sub cmdKomma_Click()
        txtErgebnis = txtErgebnis + "."
    'Display = Display + .
    
End Sub

                'Nun kommen die Rechenarten
Private Sub cmdPlus_click()
        Zahl1 = txtErgebnis
    'die Variable soll genau den Wert des Displays erhalten
        Rechenart = "addieren"
    'Variable "Rechenart" soll den Wert "addieren" erhalten
        txtErgebnis = ""
    'Display leeren
End Sub

Private Sub cmdMinus_click()
        Zahl1 = txtErgebnis
    'die Variable soll genau den Wert des Displays erhalten
        Rechenart = "subtrahieren"
    'Variable "Rechenart" soll den Wert "subtrahieren" erhalten
        txtErgebnis = ""
    'Display leeren
End Sub

Private Sub cmdGeteilt_click()
        Zahl1 = txtErgebnis
    'die Variable soll genau den Wert des Displays erhalten
        Rechenart = "dividieren"
    'Variable "Rechenart" soll den Wert "dividieren" erhalten
        txtErgebnis = ""
    'Display leeren
End Sub

Private Sub cmdMal_click()
        Zahl1 = txtErgebnis
    'die Variable soll genau den Wert des Displays erhalten
        Rechenart = "multiplizieren"
    'Variable "Rechenart" soll den Wert "multiplizieren" erhalten
        txtErgebnis = ""
    'Display leeren
End Sub


Private Sub cmdHoch_click()
        Zahl1 = txtErgebnis
    'die Variable soll genau den Wert des Displays erhalten
        Rechenart = "potenzieren"
    'Variable "Rechenart" soll den Wert "potenzieren" erhalten
        txtErgebnis = ""
    'Display leeren
End Sub
    'Hiermit wird alles gelöscht bis auf die Listbox
Private Sub cmdClear_click()
        txtErgebnis = ""
        Zahl1 = ""
    'Variable und Display löschen
    
End Sub
    'Hier wird die Listbox gelöscht
Private Sub cmdclearlist_Click()
        ListBox1.Clear
    'Listbox löschen
End Sub

    'Hier kommt die eigentliche Rechnung
Private Sub cmdGleich_click()

    'Inhalt von txtErgebnis zwischenspeichern
formel = txtErgebnis

    If Rechenart = "addieren" Then
        txtErgebnis = CDbl(Zahl1) + CDbl(txtErgebnis)
        
    'mit cdbl() wird der jeweilige Inhalt in Zahlen umgewandelt
    ElseIf Rechenart = "subtrahieren" Then
        txtErgebnis = CDbl(Zahl1) - CDbl(txtErgebnis)
        
    ElseIf Rechenart = "multiplizieren" Then
        txtErgebnis = CDbl(Zahl1) * CDbl(txtErgebnis)

    ElseIf Rechenart = "dividieren" Then
        txtErgebnis = CDbl(Zahl1) / CDbl(txtErgebnis)
       
    ElseIf Rechenart = "potenzieren" Then
        txtErgebnis = CDbl(Zahl1) ^ CDbl(txtErgebnis)
        
    End If
    
    'Formel und Ergebnis in Liste eintragen
ListBox1.AddItem formel & " = " & txtErgebnis

End Sub


Das ist es Momentan: in die Listbox wird momentan folgendes eingetragen: 

bei der Rechnung 1 + 1 = 2 trägt er nur 1 =  2 in die Listbox ein

Wie kann ich das beheben dass er die ganze rechnung in die Listbox einträgt ?