поменять местами первую и заключительную цифру числа n

Sub number()  N = InputBox("Введите число N ")  S = Trim(Str(N))  If Len(S) lt;= 1 Then    MsgBox "Число должно быть желая бы двузначным"  End If  L% = N Mod 10 'заключительная цифра  K = Len(S) - 1  F = Mid(S, 1, 1) '1-ая цифра  B = N - F * (10 ^ K) + L * (10 ^ K) - L + F    MsgBox "Введённое число" + Str(N) + "; Перевоплощенное число " + Str(B)End Sub
Sub test()  numberEnd Sub

'------------------------------тест
введённое число 58982 Перевоплощенное число 28985