File Path VisualBasic Script

Sub UsefulStringFunctions() 
    Dim sTestWord As String 
    sTestWord = "One, Two, Three, 4, Five, Six" 
    DemoSplit sTestWord 
End Sub 
Sub DemoSplit(sCSV As String) 
    Dim vaValues As Variant 
    Dim nIndex As Integer 
    vaValues = Split(sCSV, ",") 
    For nIndex = 0 To UBound(vaValues) 
        Debug.Print "Item (" & nIndex & ") is " & vaValues(nIndex) 
    Next 
End Sub