[VB6] Evento KeyPress e assorbimento del tasto

[oregon]

Private Sub txtValue_KeyPress(Index As Integer, KeyAscii As Integer)
Dim val As String
val = txtValue(Index).Text
If KeyAscii = 44 Then
    txtValue(Index).Text = val
    MsgBox "Use - . - insted of - , -", vbInformation
    KeyAscii = 0
    Exit Sub
...