[ Φόρμες ] Εισαγωγή μόνο αριθμών σε πεδίο

[Meteora]

Καλησπέρα...
Στό πεδίο [mk] φόρμας πρέπει να εισάγονται μόνο αριθμοί. Έφτιαξα μια ρουτίνα η οποία στον υπολογιστή μου δουλεύει (Εκμετάλευση του συμβάντος 'Με το πάτημα του πλήκτρου').
Θάχει μήπως πρόβλημα να δουλέψει σε οποιοδήποτε υπολογιστή, εδώ στην Ελλάδα μας;

 
Private Sub mk_KeyPress(KeyAscii As Integer)
    Select Case KeyAscii
    Case 48 To 57, 8
    Case Else
        MsgBox "Μόνο Αριθμοί !", vbCritical, "Έλεγχος"
        KeyAscii = 0
    End Select
End Sub

Η μάσκα εισαγωγής 9999 κοκ δεν με αρέσει με εκείνες τις υπογραμμίσεις της...

Η λύση του θέματος είναι σημαντική για μένα...

Με εκτίμηση

Νίκος Δ.