## How to divide a string into single characters

    ' Gambas class file

    PUBLIC SUB _new()
      TextLabel2.Text = "See the first and last character of your INPUT!"
    END

    PUBLIC SUB Button1_Click()
      inword AS String
      outword AS String
      inword = TextBox1.Text
      outword = Mid(inword, 1, 1)
      outword = outword & Mid(inword, Len(inword), 1)
      TextLabel1.Text = outword
    END

-- JochenGeorges - 28 Dec 2004