[ChrisGT7]

Καλησπέρα Γιώργο,

Δοκίμασε στη φόρμα σου τον παρακάτω κώδικα αν σε καλύπτει:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
        Case Is < 902, 907, 930, Is > 974:
            KeyAscii = 0
    End Select
End Sub

Αλλάζεις (αν χρειάζεται) το TextBox1 στο όνομα που θα έχεις δώσει στο αντίστοιχο πλαίσιο κειμένου.