السلام عليكم و رحمة الله
بعد إذن الأخ الحبيب هشام
و الشكر الموصول للأخ أسامه على توضيحه
أعتقد أنه هذه الدالة ستكون أفضل و أبسط للفهم و الإستخدام
Function Reverse(text As String) As String
For N = Len(text) To 1 Step -1
Reverse = Reverse & Mid(text, N, 1)
Next N
End Function