Sub test()myvalue = InputBox("Give me some input", "salam", "input your text here")If myvalue <> "" ThenFor i = Len(myvalue) To 1 Step -1xx = xx & Mid(myvalue, i, 1)Next MsgBox xxElseMsgBox "no inputed any text"End IfEnd Sub
کامنت