String umkehren

1
2
3
4
5
6
7

Public Function ReverseString(ByVal Value As String) As String
    Dim SB As New System.Text.StringBuilder
    For i As Integer = Value.Length - 1 To 0 Step -1
        SB.Append(Value(i))
    Next
    Return SB.ToString
End Function