• Home
 · 
• Custom Controls/Forms/Menus
 · 
• To convert first word in big lett. this is function which accept string

To convert first word in big lett. this is function which accept string

To convert first word in big lett. this is function which accept string

Rate To convert first word in big lett. this is function which accept string

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

a = 1
While (a <= Len(Text))
If (a = 1) Then
Na = UCase(Mid(Text, a, 1))
GoTo l1
End If
Na = Na + Mid(Text, a, 1)
l1:
If (Asc(Mid(Text, a, 1)) = 32) Then
Na = Na + UCase(Mid(Text, a + 1, 1))
a = a + 1
End If
a = a + 1
Wend
'we return Na value back to function call 
InitCap = Na
End Function