You can use the split command like tihs:

VB Code:
  1. Text2.Text = Split(Text1, ",")(1)
  2. Text1.Text = Split(Text1, ",")(0)

Pradeep

EDIT: The above code is assuming that your Text1 contains the string you want to split.