How to How to divide a string into single words


dividewords.png


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