capitalize first letter

[crptcblade]

How do I capitalize the first word a sentence, is there a built in function to take care of it, or what?

[Lethal]

here one that will capitalize the first word in a text box. Is this what you want or something else?

Private Sub Command1_Click()
m$ = Left(Text1.Text, 1)
c$ = UCase(m$)
i$ = Replace(Text1.Text, m$, c$)
Label1.Caption = i$
End Sub

[Dillinger4]

There is probably a million was to do this but i felt a
bit creative so i went with this.



Private Sub Command1_Click()
Dim orgmessage As String
Dim newmessage As String
Dim capletter As String
orgmessage = "hello my name is brandon"
capletter = UCase(Left(orgmessage, 1))
newmessage = Mid(orgmessage, 2, Len(orgmessage))
Picture1.Print orgmessage
Picture1.Print (capletter + newmessage)
End Sub

[d.paulson]

Text1 = StrConv(Text1, vbProperCase)

Originally posted by d.paulson
Text1 = StrConv(Text1, vbProperCase)

This Will Capitalize The First Letter Of Every Word In The Sentence.

[AffiliateSwitchblade]

This Will Capitalize The First Letter Of Every Word In The Sentence.

Yea Some People Don't Bother to READ!!

[AffiliateSwitchblade]

How do I capitalize the first word a sentence, is there a built in function to take care of it, or what?

sString =UCase$(Left(sString, 1)) & Mid(sString, 2, Len(sString))

[DataMiser]

Yea Some People Don't Bother to READ!!

And some do not bother to read the date then respond to a 16 year old question

But since it has been dug up here is another method that is perhaps a bit more efficient than the others given

Mid$(sString, 1, 1) = UCase$(Left$(sString, 1))