Eingabe über Userform

Sheets("Einzahlungen").Select
Range("A1").Select
While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Range("A1").Select
Wend
ActiveCell.Value = TextBox1.Text
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Value = TextBox2.Text
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Value = TextBox3.Text

nun mein Problem:
Die Zellen mit dem Eintrag von TextBox3 werden mit der Formel: =Summe(B2:B260) in Zelle "G2" addiert. Leider werden nur Eintragungen in der TextBox3 ohne Komma addiert, steht in TextBox3 ein Wert mit Komma werden diese in Zelle "G2" nicht addiert.

Beispiel:
Eintrag in TextBox3 = 500 € wird dies in Zelle "G2" addiert.
Eintrag in TextBox3 = 500,00 € wird dies in Zelle "G2" nicht addiert.

Im voraus Danke
Roland