Imports System.Text.RegularExpressions
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        End
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        Dim results() As String
        Try
            results = Regex.Split(TextBox1.Text, TextBox2.Text)
 
        Catch exp As Exception
            MsgBox("An error was encountered when attempting to parse the " & _
                "source text. This can be caused by an invalid regex pattern." _
                & _
                "  Check your expression and try again." & vbCrLf & _
                exp.Message, _
                MsgBoxStyle.Critical, Me.Text)
            Exit Sub
        End Try
 
 
    End Sub