Boa tarde Caio,

No evento onKeyPress do TextBox coloque este comando para aceitar somente números, você pode colocar ela em uma função e retornar o KeyAscii ou senão colocar em uma variável e depois utilizá-la:

1-- If Not IsNumeric(Chr(KeyAscii)) And KeyAscii <> 8 Then KeyAscii = 0

Para formatar o textbox coloque no evento exit o seguinte comando.

2-- Text1.Text = Format(Text1.Text, "A0000000000")

Ps.: Eu não testei , mas acho que é isso mesmo.

Abraço

Marcos Rieper

Valeu riper,
da forma abaixo funcionou!

Private Sub TextBox2_Change()
TextBox2.Value = Format(TextBox2.Value, "A")
End Sub

Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Not IsNumeric(Chr(KeyAscii)) And KeyAscii <> 8 Then KeyAscii = 0
End Sub