פונקציה לרשותך ../images/Emo22.gif
Public Function Reverse(Mila As String) As String If Mila = "" Then Exit Function Dim N As Byte For N = 1 To Len(Mila) Reverse = Mid(Mila, N, 1) & Reverse Next N End Function
הכנס את הקוד למודול, והשתמש להנאתך בפונקציה Reverse.
