Saat anda mempunyai kalimat dengan huruf kecil semua, bagaimanakah jika huruf awalnya menjadi huruf besar?
contoh : saya saat ini sedang belajar vb.
hasilnya: Saya Saat Ini Sedang Belajar Vb.
Berikut fungsinya :
Public Function FirstUCaseWord(ByVal MyString As String) As String
Dim PosSpc As Integer
Mid(MyString, 1, 1) = UCase(Mid(MyString, 1, 1))
PosSpc = InStr(MyString, ” “)
While PosSpc <> 0
Mid(MyString, PosSpc + 1, 1) = UCase(Mid(MyString, PosSpc + 1, 1))
PosSpc = InStr(PosSpc + 1, MyString, ” “)
Wend
FirstUCaseWord = MyString
End Function