Como transformar a primeira letra de uma palavra em letra maiúscula?
Private Sub Command1_Click()
Dim palavra As String
Dim texto As String
palavra = "teste"
texto = UCase(Mid(palavra, 1, 1))
palavra = texto & LCase(Mid(palavra, 2, 1000))
MsgBox palavra
End Sub
