Imports System
Public Module Module1
Public Sub Main()
Dim s As String = "C:\Users\Name\Documents\VB.NET\Examples"
Dim arr As String() = s.Split(New Char() {"\"c})
For Each element As String In arr
Console.WriteLine(element)
Next
End Sub
End Module
' run:
'
' C:
' Users
' Name
' Documents
' VB.NET
' Examples
'