Development VB.Net

Imports System
Imports System.Text
Imports System.Text.RegularExpressions
Public Class MainClass
    
    Shared Sub Main()
             Dim s1 As String = "One,Two,Three"
             Dim sBuilder As New StringBuilder(  )
             Dim id As Integer = 1
             Dim subString As String
             For Each subString In Regex.Split(s1, " |, |,")
                 id = id + 1
                 sBuilder.AppendFormat("{0}: {1}" _
                   & Environment.NewLine, id, subString)
             Next subString
             Console.WriteLine("{0}", sBuilder.ToString(  ))
           
   End Sub
End Class