Написать программу в vba: в заданной последовательности символов поменять местами первый символ с последним символом. !

    VB.
Dim s As String
        Dim Text As String

        s = "123456789"
        Text = Mid(s, Len(s), 1) & Mid(s, 2, Len(s) - 2) & Mid(s, 1, 1)