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










