Menampilkan huruf pertama dari setiap kalimat menjadi huruf besar/kapital

Dalam teknik pengetikan ketika orang menginput data terkadang inputan yang diinput oleh pengguna tidak sesuai atau tidak rapi, yang semestinya harus berawalan huruf besar ini berawalan huruf kecil. Disini saya membuat sebuah fungsi untuk menampilkan huruf setiap kalimat huruf pertama menjadi huruf besar.


'Persiapan: 1. Buat 1 Project baru dengan 1 Form dan 1 TextBox
'           2. Copy-kan coding berikut ke dalam editor form
'--------------------------------------------------------------------------

Public Function AwalKalimatKapital(strKalimat As String)
Dim Temp1 As String, Temp2 As String
Dim Lokasi As Integer, i As Integer
Dim huruf As String * 1
  Temp1$ = LCase(strKalimat)  'Kecilkan dulu semua
  For i% = 1 To Len(Temp1$)
    huruf = Chr(Asc(Mid(strKalimat, i%, 1)))
    If huruf = "." Then
      Lokasi% = i% + 2
    End If
    If i% = 1 Or i% = Lokasi% Then
       Temp2$ = Temp2$ + UCase(Chr(Asc(Mid(Temp1$, i%, 1))))
    Else
       Temp2$ = Temp2$ + LCase(Chr(Asc(Mid(Temp1$, i%, 1))))
    End If
  Next i
  AwalKalimatKapital = Temp2$
End Function

Private Sub Text1_Change()
  Dim posisi As Integer
  posisi = Text1.SelStart
  Text1.Text = AwalKalimatKapital(Text1.Text)
  Text1.SelStart = posisi
End Sub

Selamat mencoba ... :)