Dim c() As Char = {\"1\", \"2\", \"3\"}

        Dim a() As String = s.Split(c)

        Dim p As String

        For Each p In a

            If p <> \"\" Then

                MessageBox.Show(p)

            End If

   Next