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