Membalikkan Tulisan

Private Sub Command1_Click()
Text1.Text = BalikkanString(Text1.Text)
End Sub

Function BalikkanString(strKalimat As String) As String
Dim i As Integer, Panjang As Integer
Dim strTampung As String
Panjang = Len(strKalimat)
For i = Panjang To 1 Step -1
strTampung = strTampung & Mid(strKalimat, i, 1)
Next i
BalikkanString = strTampung
End Function

Private Sub Form_Load()
Text1.Text = "Rezza Aziel Gagina"
End Sub