Split Comma-Separated String into Fields

This example shows how to do split a comma-separated string into fields.

Dim s As String
s = "Chilkat Mail, ActiveX Component, $99, free upgrades, 1-Year Support"

Dim fields() As String

' Split the string at the comma characters and add each field to a ListBox
fields() = Split(s, ",")

For i = 0 To UBound(fields)
    List1.AddItem Trim$(fields(i))
Next