Mega Code Archive

 

Categories / VisualBasic Script / File Path

 

Split demonstration

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