Panjang kalimat dan Membalik Kalimat tersebut

Ini adalah kode programnya:

Private Sub cmd_BK_Click()
txt_hasil.Text = StrReverse(txt_kalimat.Text)
End Sub

Private Sub cmd_hapus_Click()
txt_kalimat.Text = ""
txt_hasil.Text = ""
End Sub

Private Sub cmd_PK_Click()
Dim panjang As Integer
panjang = Len(txt_kalimat.Text)
MsgBox "Panjang Kalimat anda adalah " & Str(panjang), vbOKOnly, "Panjang Kalimat"
End Sub

NB:
1. cmd_PK = commandbutton panjang kalimat
2. cmd_BK = commandbutton balik kalimat

Selamat Mencoba,
Ridon-Na70