[VB6] Problemino tra Keypress e GotFocus

[raffaeu]

Ciao ho un problemino, in questa text devo controllare che siano solo numeri, quindi :

Private Sub txtIMPORTO_GotFocus(Index As Integer)
On Error Resume Next
    txtIMPORTO(Index).BackColor = &HFBF0D9
    txtIMPORTO(Index).SelLength = Len(txtIMPORTO(Index).Text)
End Sub

Ma da quando ho messo questa non funziona piu' ..

Private Sub txtIMPORTO_KeyPress(Index As Integer, KeyAscii As Integer)
Select Case KeyAscii
        Case 48 To 57, 44, 8, 45, 46, vbKeyTab
        Case Else
            KeyAscii = 0
            Beep
    End Select
End Sub

Ma prima funzinava correttamente.
Io gli passo il KeyTab ..