Ciao.
Se non ho capito male.....

usa l'evento KeyPress della tua casella di testo es:

codice:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = Asc(",") Then
    KeyAscii = Asc(".")
End If
End Sub
in questo modo non corri il rischio....
se invece vuoi proprio mettere la virgola allora....
aspetta un po' che ci penso....
intanto fammi sapere.
Ciao!