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

Sub number()  N = InputBox("Введите число N ")  S = Trim(Str(N))  If Len(S) <= 1 Then    MsgBox "Число должно быть хотя бы двузначным"  End If  L% = N Mod 10 'последняя цифра  K = Len(S) - 1  F = Mid(S, 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