Dim wordsvfz() As String
wordsvfz = Split("james:love", ":")
text1.text = wordsvfz (0)
Text2.Text = wordsvfz (1)