Private Sub Command1_Click()
b = Left(Text1.Text, 1)
c = Mid(Text1.Text, 2, Len(Text1.Text))
Text1.Text = UCase(b) + LCase(c)
For i = 1 To Len(Text1.Text)
c = Mid(Text1.Text, i, 1)
If c = " " Then
Text1.Text = Mid(Text1.Text, 1, i) + UCase(Mid(Text1.Text, i + 1, 1)) + Mid(Text1.Text, i + 2, Len(Text1.Text))
End If
Next i
End Sub
b = Left(Text1.Text, 1)
c = Mid(Text1.Text, 2, Len(Text1.Text))
Text1.Text = UCase(b) + LCase(c)
For i = 1 To Len(Text1.Text)
c = Mid(Text1.Text, i, 1)
If c = " " Then
Text1.Text = Mid(Text1.Text, 1, i) + UCase(Mid(Text1.Text, i + 1, 1)) + Mid(Text1.Text, i + 2, Len(Text1.Text))
End If
Next i
End Sub