←←←/Access/逆転

Pubic Function Reverse(逆転 As String) As String
    Dim sOri As String
    Dim sTrm As String
    Dim Pos As Integer

    sOri = 逆転
    Pos = Len(sOri)
    Do Until Pos = 1
        sTrm = sTrm & Mid( sOri , Pos , 1 )
        Pos = Pos  -  1
    Loop
    Reverse = sTrm
End Function