Imports System
Imports System.Text.RegularExpressions

Public Class Test
	Public Shared Sub Main()
		
		Dim s As String = "Hello.world, have a nice day"
		Dim arr As String() = Regex.Split(s, "([.,])")
        For Each i As String In arr
            Console.WriteLine(i)
        Next
		
	End Sub
End Class