Imports System
Imports System.Configuration
Imports System.Text.RegularExpressions
Class MainClass
Public Shared Sub Main()
Dim pattern As String = "(-)"
Dim input As String = "this-is-a-test"
Dim regex As Regex = New Regex(pattern)
Dim substrings() As String = regex.Split(input, 4)
For Each match As String In substrings
Console.WriteLine("'{0}'", match)
Next
End Sub
End Class