Menghitung Jumlah Karakter, Kata dan Spasi Dalam Textbox di Visual Basic

seperti biasa sebelum kita masuk dalam menampilkan jumlah karakter  dan kata kita harus mendevenisikan terlebih dahulu  "jmlA,i,a maka sesudah kita devenisikan maka listing selanjutnya seperti dibawah..

'Tampilkan Jumlah Kata
a = Text1.Text
jmlA = 1
For i = 1 To Len(Trim$(a))
If Asc(Mid(a, i, 1)) = 13 Or Asc(Mid(a, i, 1)) = 32 Then jmlA = jmlA + 1
Next i
Text2 = jmlA

'Tampilkan Jumlah Karakter
Text3 = Len(Text1)

'Tampilkan Jumlah spasi
sTeks = Text1
aItem = Split(sTeks, " ")
nItem = UBound(aItem)
Text4 = nItem

'Ganti Huruf
If Text1.Text = LCase$(Text1) Then
Text5.Text = UCase$(Text1)
Else
Text5.Text = LCase$(Text1)
End If
End Sub