字符串根据多个字符进行分割的一种方法

        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