Зашифровать строку, записав все ее символы в обратном порядке - VB

Option Explicit
 
 
Function StrReverse32(ByVal Expression$)
    Dim i&, ll&
    ll = Len(Expression)
    Let StrReverse32 = Space$(ll)
    For i = 1 To ll: Mid$(StrReverse32, ll - i + 1, 1) = Mid$(Expression, i, 1): Next
End Function
 
 
Private Sub Form_Load()
    '
    'Вызов! - вписать можно что угодно например если написать 123 на выходе будет 321
    '
    MsgBox StrReverse32(123)
End Sub