• Home
 · 
• String Manipulation
 · 
• Reverse String

Reverse String

Reverse String

API Declarations


Public strRevertida As String



Rate Reverse String

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Function strReverse(str As String)

Dim var As String
Dim i As Integer

i = Len(str)

While i > 0
    var = var & Mid$(str, (i), 1)
    i = i - 1
Wend

strReverse = var

End Function


Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    strRevertida = strReverse(Text1.Text)
    MsgBox strRevertida
    Text1.Text = ""
    KeyAscii = 0
End If
End Sub