create a form with text1, text2, text3, and command1 button

rem this code takes a string seperated by any chr and seperates it rem into 2 seperate string. rem example, the fox & the hound rem num1 = the fox, num 2 = the hound rem where "&" is you can replace with any character you want to split a string rem with. num1 = Left(text1.Text, InStr(text1.Text, "&") - 1) num2= Mid(text1.Text, InStr(text1.Text, "&") + 1, Trim(Len(text1.Text)) - 1) text2.text = num1 text3.text = num2