VBA: TextBox, Dezimalien

Wer könnte mir behilflich sein bei folgendem Problem:

In der TextBox1 der UserForm1, will ich Zahl mit x-Dezimalstellen eingeben können.

Beim auslesen der Zahl, will ich aber nur z.B. zwei Dezimalen nach dem Komma (Punkt) in der TextBox angezeigt bekommen.

Wie muss ich meinen VBA-Code ergänzen?

Für eine Antwort bin ich dankbar.
Gruss Ernst Dunkel

Private Sub TextBox1_Change()
Worksheets(1).[a1] = UserForm1.TextBox1.Text
End Sub

Private Sub UserForm_initialize()
TextBox1.Text = Range("a1")
End Sub