Paulo, se está se referindo a digitação de Placas de Veiculos, de uma olhada no modelo abaixo onde criei exattamente para que seja digitado somente letras e numeros.

TextBox- Somente Letras e Numeros
http://www.tomasvasquez.com.br/forum/vi ... WdB16LBO2Q

Mas se quer continuar com sua rotina, acrescente em seu projeto a rotina abaixo, que transforma em Maiusculas no Evento Change do TextBox :

Private Sub txtplaca_Change()
    'converte o texto digitado para maiúsculas
    'vbUpperCase 1 Converte a seqüência em caracteres maiúsculos.
    'vbLowerCase 2 Converte a seqüência em caracteres minúsculos.
    'vbProperCase 3 Converte a primeira letra de cada palavra na seqüência em letra maiúscula.

   txtplaca.Text = StrConv(txtplaca.Text, vbUpperCase) 'vbProperCase vbUpperCase

End Sub

[]s

Private Sub txtplaca_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Len(txtPlaca.Text) <= 3 Then
txtPlaca.Text = UCase(txtPlaca.Text)
End If
If Len(txtPlaca) = 3 Then
txtPlaca.Text = txtPlaca + "-"
End If
End Sub

Com base no que vc sugeriu. Ficou excelente!

Muito obrigado