VB Code:
  1. Dim tmp() As String

  2.     tmp=Split([B]yourOriginalTextBox[/B].Text,",")

  3.         txtbox1.Text=tmp(0)

  4.         txtbox25.Text=tmp(1)

  5.         txtbox32.Text=tmp(2)

  6.         txtbox47.Text=tmp(3)

  7.         txtbox48.Text=tmp(4)
Rename yourOriginalTextBox with yours