• Home
 · 
• String Manipulation
 · 
• Formating text by making first letter upper case.

Formating text by making first letter upper case.

Formating text by making first letter upper case.

Rate Formating text by making first letter upper case.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim tempstring As String

tempstring = UCase(Left(m_string, 1))

Dim makeupper As Boolean

Dim i As Integer

makeupper = False
For i = 2 To Len(m_string)
    If Mid(m_string, i, 1) = " " Or Mid(m_string, i, 1) = "," Or Mid(m_string, i, 1) = "." Or Mid(m_string, i, 1) = "-" Or Mid(m_string, i, 1) = "(" Or Mid(m_string, i, 1) = ")" Then
         makeupper = True
    End If
    If makeupper And (Mid(m_string, i, 1) <> " " And Mid(m_string, i, 1) <> "," And Mid(m_string, i, 1) <> "." And Mid(m_string, i, 1) <> "-" And Mid(m_string, i, 1) <> "(" And Mid(m_string, i, 1) <> ")") Then
        tempstring = tempstring + UCase(Mid(m_string, i, 1))
    Else
        tempstring = tempstring + LCase(Mid(m_string, i, 1))
    End If
    If Not (Mid(m_string, i, 1) = " " Or Mid(m_string, i, 1) = "," Or Mid(m_string, i, 1) = "." Or Mid(m_string, i, 1) = "-" Or Mid(m_string, i, 1) = "(" Or Mid(m_string, i, 1) = ")") Then
        makeupper = False
    End If

Next
wordcap = tempstring
End Function