<code>Dim Betrag1 As Double
Dim Betrag2 As Double
Dim Betrag3 As Double
 
Betrag1 = GetBetrag(Text1.Text)
Betrag2 = GetBetrag(Label1.Caption)
 
<font color=green>' Formatierte Ausgabe des Produkts</font>
Betrag3 = Betrag1 * Betrag2
Label3.Caption = Format$(Betrag3, "#,##0.00")</code>

<code><font color=green>' Funktion: GetBetrag</font>
Public Function GetBetrag(ByVal sBetrag As String) As Double
  <font color=green>' Tausendertrennzeichen eliminieren</font>
  sBetrag = Replace(sBetrag, ".", "")
 
  <font color=green>' Komma für Nachkommastellen in Punkt umwandeln</font>
  sBetrag = Replace(sBetrag, ",", ".")
 
  GetBetrag = Val(sBetrag)
End Function</code>