Pq ao inves de usar uma Text Box nao usa uma Combobox.

Assim vc escolhe adiciona na combo so o que precisa.

Bom dia 4ntunes,

Vê se ajuda:

Option Explicit

Private Sub TextBox1_Change()
Dim Permicao    As String
Dim i           As Long

    Permicao = "A,B,C,D" 'Letras Permitidas
    Me.TextBox1.MaxLength = 1 'Quantidade de caracteres permitidos

    For i = Len(Me.TextBox1.Value) To 1 Step -1
        If InStr(1, Permicao, UCase(Mid(Me.TextBox1.Value, i, 1))) = 0 Then
            Me.TextBox1.Value = Replace(Me.TextBox1.Value, Mid(Me.TextBox1.Value, i, 1), "")
        End If
    Next

End Sub

Qualquer coisa da o grito.
Abraço

Perfeito...isso que eu queria..