อยากทราบวิธี Split ข้อมูลที่มี marker 2 ชนิดอยู่ในข้อมูลเดียวกันคับ

 Dim X As String = S.ReadLine
            If Trim(X) <> "" Then
                Dim A1() As String = Split(X, "|")
  'ถ้าไม่ใส่โปรแกรมรันได้ปกติแต่แบ่งแค่ที่เป็น "|"
               ' Dim sh() As String = Split(A1(8), "#")

                '==================for data GridView
                If i = 0 Then
                    For j As Integer = 0 To UBound(A1)
                        Dim dc As New DataColumn(A1(j), GetType(String))
                        dt.Columns.Add(dc)
                        dt.Columns.Remove(A1(8))

                'ถ้าไม่ใส่โปรแกรมรันได้ปกติแต่แบ่งแค่ที่เป็น "|"
                      'For y As Integer = 0 To UBound(sh)
                      '      Dim dc2 As New DataColumn(sh(y), GetType(String))
                      '      dt.Columns.Add(dc2)
                      '  Next
                        
                    Next