Awal Kata Huruf Kapital

Sesuai dengan judulnya, fungsi ini berguna untuk mengubah teks dengan mengganti setiap kata dengan huruf awal kapital.

Jawa Barat

Fungsi ini berguna untuk penggunaan nama yang biasanya menggunakan huruf kapital di awal kata.
Algoritmanya:

1. Melakukan pengulangan sebanyak jumlah huruf yang ada
2. Di dalam pengulangan terdapat pengecekan dengan mencari karakter spasi(" ") apabila ditemukan maka ubah satu huruf di depan karakter spasi dengan menggunakan UCase
3. Di dalam pengulangan terdapat pengecekan dengan mencari karakter Visual Basic Carriage Return Line Feed(vbCrlf) atau Chr(13) + Chr(10) atau vbNewLine yang berarti karakter garis baru. apabila ditemukan maka ubah satu huruf di depan karakter(2 karakter) tersebut dengan menggunakan UCase.

Private Function AwalKapital(kalimat As String)
On Error Resume Next
  If kalimat <> "" Then
   Mid(kalimat, 1, 1) = UCase(Mid(kalimat, 1, 1))
   For i = 1 To Len(kalimat) - 1
     If Mid(kalimat, i, 1) = " " Then Mid(kalimat, i + 1, 1) = UCase(Mid(kalimat, i + 1, 1))
     If Mid(kalimat, i, 2) = vbNewLine Then Mid(kalimat, i + 2, 1) = UCase(Mid(kalimat, i + 2, 1))
   Next
   AwalKapital = kalimat
  End If
End Function

Cara penggunaannya:

Private Sub Form_Load()
    Dim kalimat As String
    kalimat = "awal kata huruf kapital"
    Me.Caption = AwalKapital(kalimat)
End Sub

'misal di textbox dengan property name txt di event change
Private Sub txt_Change()
    txt.Text = AwalKapital(txt.Text)
    txt.SelStart = Len(txt.Text) + 1
End Sub