Data Type VB.Net Tutorial

Option Strict On
 Imports System
 Class Tester
     Public Shared Sub Main( )
         Dim s1 As String = "One,Two,Three Liberty Associates, Inc."
         Const Space As Char = " "c
         Const Comma As Char = ","c
         Dim delimiters( ) As Char = {Space, Comma}
         Dim output As String = ""
         Dim ctr As Integer = 0
         Dim resultArray As String( ) = s1.Split(delimiters)
         Dim subString As String
         For Each subString In resultArray
             ctr = ctr + 1
             output &= ctr.ToString( )
             output &= ": "
             output &= subString
             output &= Environment.NewLine
         Next subString
         Console.WriteLine(output)
     End Sub 'Main
 End Class 'Tester
1: One
2: Two
3: Three
4: Liberty
5: Associates
6:
7: Inc.