Jumlah Perkata Dan Jumlah Perhuruf Pada TextBox

PERSIAPAN			PROPERTIES
NO	CONTROL	PCS	NAME	VALUE	KETERANGAN
1.	TextBox	1	MultiLine	True	Text1
2.	Frame	1	Caption	Info Jumlah :	Frame1
3.	Label	4	Caption	Jumlah Perkata  :	Label1
				Jumlah Perhuruf  :	Label2
			Name(Index)	INFo(0)	Label3
				INFo(1)	Label4

Gambar Jumlah Perkata Dan Jumlah Perhuruf Pada TextBox

Masukkan souce ini ke dalam Form :Public Function GetWordCount(ByVal Text As String) As Long 'Definisikan sebuah tanda hubung pada setiap akhir baris yang 'merupakan bagian dari seluruh kata, jadi kombinasikan bersama. Text = Trim(Replace(Text, "-" & vbNewLine, "")) 'Ganti baris baru dengan sebuah space tunggal Text = Trim(Replace(Text, vbNewLine, " ")) 'Ganti spasi yang lebih dari satu (jika ada) menjadi spasi tunggal Do While Text Like "* *" Text = Replace(Text, " ", " ") Loop 'Pisahkan string dan kembalikan kata yang dihitung GetWordCount = 1 + UBound(Split(Text, " ")) End Function Private Sub Text1_Change() 'Jumlah Perkata INFo(0) = GetWordCount(Text1.Text) 'Jumlah Perhuruf INFo(1) = Len(Text1.Text) End Sub