[Resolvido]Definir formatacao do texto

Prezados utilizo esse codigo (de um modelo do Assis) em um projeto e gostaria de saber se eh possivel

Ao inserir:
"NFuncionario" (salvar em caixa alta)
"SCargo" e "SFuncao" (salvar so a primeira em maiuscula)


Private Sub Matricula_NotInList(NewData As String, Response As Integer)
Dim SQL As String
Dim NFuncionario As String
Dim CCpf As String
Dim NData As String
Dim SCargo As String
Dim SFuncao As String

   If MsgBox("Matricula " & Proper(NewData) & " Não Registado" & vbCrLf & "Deseja Registar o Funcionario " & "Agora ?", vbInformation + vbYesNo, "Aviso") = vbYes Then
       
verificaNF:
       NFuncionario = InputBox("Qual é o Nome do Funcionario ?", "Funcionario")
           If DCount("Funcionario", "tblServidor", "Funcionario = '" & NFuncionario & "'") > 0 Then
               MsgBox "Ja existe esse nome de Funcionario, verifique.", vbInformation, ""
               Exit Sub
           End If
verificaCC:
       CCpf = InputBox("Qual é o CPF ?", "CPF ")

verificaND:
       NData = InputBox("Informe a Data de Admissão ?", "DtAdmissao ")

verificaSC:
       SCargo = InputBox("Informe o Cargo ", "Cargo ")

verificaSF:
       SFuncao = InputBox("Informe a Funcao ", "Funcao ")
       
       'verifica se campos estao vazios
       If Len(NFuncionario & "") = 0 Then
           MsgBox "Nome do Funcionario nao pode ser vazio, verifique", vbCritical, ""
           GoTo verificaNF
       End If
       If Len(CCpf & "") = 0 Then
           MsgBox "O CPF nao pode ser vazio, verifique", vbCritical, ""
           GoTo verificaCC
       End If
       If Len(NData & "") = 0 Then
           MsgBox "A Data de Admissão nao pode ser vazia, verifique", vbCritical, ""
           GoTo verificaND
       End If
       If Len(SCargo & "") = 0 Then
           MsgBox "O Cargo nao pode ser vazio, verifique", vbCritical, ""
           GoTo verificaSC
       End If
       If Len(SFuncao & "") = 0 Then
           MsgBox "A Funcao nao pode ser vazia, verifique", vbCritical, ""
           GoTo verificaSF
       End If
       
       SQL = "INSERT INTO tblServidor (Matricula, Funcionario, CPF, DTAdmissao, Cargo, Funcao) VALUES ('" & Proper(NewData) & "' , '" & NFuncionario & "' , '" & CCpf & "', '" & NData & "', '" & SCargo & "', '" & SFuncao & "')"
       DoCmd.RunSQL SQL
       DoEvents
       Response = acDataErrAdded
   Else
       MsgBox "Verifique então o código introduzido, campo obrigatório.", vbCritical, ""
       Exit Sub
   End If
End Sub

Bom dia,

Você pode usar duas funções no VBA:

Para primeira maiúscula, use: StrConv("seu texto", vbProperCase)

Nesse caso a definição de NFUncionario:
NFuncionario = StrConv(InputBox("Qual é o Nome do Funcionario ?", "Funcionario"), vbProperCase)


Para tudo tudo caixa alta, use: UCase("seu texto")

Nesse caso a definição de NFUncionario:
SCargo = UCase(InputBox("Informe o Cargo ", "Cargo "))
SFuncao = UCase(InputBox("Informe a Funcao ", "Funcao "))


Espero que ajude!

Aproveite e veja algumas funções internas esquecidas;

https://www.maximoaccess.com/t581-funcoes-esquecidas-no-ms-access#3444

Valeu pessoal, consegui da seguinte forma:

na linha NFuncionario utilizei a funcao UCase Como sugerido e bancana;

Ja a funcao StrConv me retorna a primeira letra de cada palavra em maiuscula tipo (Auxiliar De Escritorio)

entao lembrei que em meus modelos eu geralmente utilizo uma funcao (modulo) e a copiei para o vba do formulario e fiz as devidas adaptacoes.