vbnet Split

Dim a As String = "123@456@789"
Dim ch1 As Char() = New Char() {"@"}
Dim str As String() = a.Split(ch1)
MessageBox.Show(str.Length)
For i As Integer = 0 To str.Length - 1
       MessageBox.Show(str(i))
Next