STATIC PUBLIC SUB Main() hForm AS Fmain hForm = NEW Fmain hForm.show END 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)'Len(myString) returns the length of a string