quello che voglio relaizzare è:

1)esaminare un carattere
2)Se è una cifra mettilo a destra
3)Se è la prima virgola decimale metti a destra
4)se è una virgola scartalo
5)scarta tutti gli altri

codice:
Private Sub Text1_KeyPress(KeyAscii As Integer)
Static dp As Integer
Select Case KeyAscii
Case Asc("0") To Asc("9")
fnumeral$ = fnumeral$ & Chr$(KeyAscii)
Case Asc(".")
If dp = True Then
KeyAscii = 0
Beep
Else
dp = True
fnumeral$ = fnumeral$ & Chr$(KeyAscii)
End If
Case Asc(",")
'niente
Case Else
KeyAscii = 0
Beep

End Select

End Sub
il codice l'ho copiato dal libro ma, non mi sembra che faccia quello che deve in particolare per la virgola.Sbaglio io nel codice ,nel ragionamento???