Private Sub Form_Load()
 
    Dim SplitText As String
    Dim Text() As String
 
    'Text der Textbox auf 13,00 setzen
    Text1.Text = "13,00"
 
    'Variable erhält den Inhalt der TextBox
    SplitText = Text1.Text
 
    'Inhalt der Textbox wird gesplittet in:
    'Trennzeichen ist hier das Komma.
    Text = Split(Text1.Text, ",")
 
    'was vor dem Komma steht
    Debug.Print Text(0)
 
    'was nach dem Komma steht
    Debug.Print Text(1)
 
    'TextBox erhält den Wert dessen, was vor dem Komma steht
    Text1.Text = Text(0)
 
End Sub

Beste Wünsche,
Bran
---
Du stolperst nicht durch die Steine die Dir in den Weg gelegt werden,
sondern durch die Einfallslosigkeit ihnen aus dem Weg gehen zu können.