PUBLIC SUB Button1_Click() myAr AS String[] myStr AS String outstr AS String x AS Integer outstr = "" myAr = Split(TextBox1.Text, " ") FOR x = 1 TO myAr.length outstr = outstr & " " & myAr[myAr.length - x] NEXT TextLabel1.Text = outstr END
-- JochenGeorges - 28 Dec 2004