mmm, la verdad pienso que tu duda se genero gracias a la pereza mental, pero en fin, de todos modos la respondere, primero creas una textbox, le das doble click e introduces el siguiente código:
If Mid(Text1.Text, Len(Text1.Text), 1) = "." Then
x = Mid(Text1.Text, 1, Len(Text1.Text) - 1)
x = x + ","
Text1.Text = x
Text1.SelStart = Len(Text1.Text)
End If
despues, para trabajar los datos introducidos en ese text box (regresarlos a que tengan punto), creas un boton y una etiqueta, al boton le incertas el siguiente codigo:
w = 0
For y = 1 To Len(Text1.Text)
If Mid(Text1.Text, y, 1) = "," Then
w = 1
z = y
End If
Next y
If w = 1 Then
x = Mid(Text1.Text, 1, z - 1)
x = x + "."
x = x + Mid(Text1.Text, z + 1, Len(Text1.Text))
Label1.Caption = x
Else
Label1.Caption = Text1.Text
End If
listo, y espero que en un futuro se te quite la pereza mental, suerte.