como é possível formatar uma inputbox ou uma text que recebe um registro da inputbox?

 

eu gostaria de receber um numero de matricula q inicia com uma letra maiuscula seguindo de numeros, o usuario entra o dado numa cx de inputbox.

 

estou tentando este codigo mas o resultado me traz erro 13 - type mismatch

Case "incluir"
            Dim crit As Variant
            Dim strg As String
            strg = InputBox$("Digite a matrícula do funcionário: ", "Localizar Funcionario")
            crit = CVar(strg)
            If strg = Empty Then
                MsgBox "Matrícula não digitada!", vbCritical
            End If
            dtaFuncionarios.Recordset.Find "matricula = '" & crit & "'"
            If dtaFuncionarios.Recordset.EOF = False Then
               MsgBox "Matrícula já existe !", vbCritical
               dtaFuncionarios.Recordset.MoveMin
            Else
                dtaFuncionarios.Recordset.AddNew
                txtmatricula.Text = Format(strg, vbAltMask = ">A999999-9")
                txtnome.SetFocus
            End If

Voce pode utilizar a funcao mid para formatar o campo desejado

 

Vamos supor que seu operador entra com Matricula = M10152

 

Dim str_String As String

str_String = "M10152"

MsgBox UCase(Mid(str_String, 1, 1)) & Format(Mid(str_String, 2, Len(str_String)), "000000-0")

 

Falow

 

Alan

Ei amigo é fácil manda dar um UCASE pois  so tem uma letra e numeros

exemplo:

 

 

Text1.text = Ucase(text1.text)

 

os números maisculos ou minusculos são iguais então sua letra vai ficar maiuscula.

obrigado pela dica pessoal