Fungsi untuk Menjadikan huruf Awal menjadi Huruf Besar

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