Hi all, and thanks in advance

can you please tell me what is wrong here? I am traying to Reverse a String which is not only backword...it like you look at the String in front of you or like it is in the Mirror. becouse it is in arabic lang. the other problem here it is like bringing the last string with the new one
1- I want the reverse order for string.

Do While Not EOF(1)
Line Input #1, sIN
For I = Rec_size To 0 Step -1
T = T & Mid(sIN, 1, 1)
sIN = Mid(sIN, 2)
Next I
Print #2, T
W = " "
Loop