Private Function Reverse(ByVal value As String) As String
If value.Length > 1 Then
Dim workingValue As New System.Text.StringBuilder
For position As Int32 = value.Length - 1 To 0 Step -1
workingValue.Append(value.Chars(position))
Next
Return workingValue.ToString
Else
Return value
End If
End Function
|