Dim curZahl1            As Currency
    Dim curZahl2            As Currency
    Dim curErgebnis         As Currency
    
    '*** Achtung: Textzeichen sind zu entfernen;ggf in Labels auslagern oder entsprechend handeln
    curZahl1 = CCur(Me.TextBox1.Text)
    curZahl2 = CCur(Me.TextBox2.Text)
    curErgebnis = (curZahl1 * curZahl2)
    
    
    Me.ErgebnisTextbox.Text = CStr(curErgebnis)

Verwende den entsprechenden Datentyp anstelle Stringmetzgerei.