Dim myName As String

Dim outputstring() As String, OutArray() As Variant

Dim VarObj As Variant, K As Integer

myName = "Gur, singh, Mac, Math, Eng"

List1.Clear

outputstring = Split(myName, ",")

For K = LBound(outputstring) To UBound(outputstring)

List1.AddItem Trim(outputstring(K))

Next K