[vb6]Problema codice e algoritmo

[ciro78]

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

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???

[codo82]

al posto di 'niente devi mettere il codice di quello che deve fare quando c'è una virgola cioè:
dichiara una variabile pubblica tipo Cont e poi:

If Cont=0 Then
Cont=1
fnumeral$ = fnumeral$ & Chr$(KeyAscii)
End If

[ciro78]

quindi è il codice sbagliato dico bene?