Frage an Hansueli

Private Sub CommandButton1_Click()
Dim lngRow As Long
Dim intIndex As Integer
Hallo Ihr lieben da bin ich wieder mal mit einer Frage.
Bei meinem Makro soll in Textbox 6 die Summe in Euro mit zwei stellen hinter dem Komma eingetragen werden, welches hier unten beschrieben dieses Makro nicht macht.Ich habe dieses Makro von Euch helfern bekommen und weis nicht wie ich das ändern soll. Könnte einer mir weiterhelfen.
With ActiveSheet
For lngRow = 12 To .Rows.Count
If Trim$(.Cells(lngRow, 1).Text) = "" Then Exit For
Next
.Cells(lngRow, 1).Value = TextBox1.Text
.Cells(lngRow, 2).Value = TextBox2.Text
.Cells(lngRow, 3).Value = TextBox3.Text
.Cells(lngRow, 8).Value = TextBox4.Text
.Cells(lngRow, 4).Value = TextBox6.Text
.Cells(lngRow, 10).Value = TextBox5.Text
End With
For intIndex = 1 To 6
Controls("TextBox" & CStr(intIndex)).Text = ""
Next
End Sub