'De un string, que tiene elementos separados por comas, los saca y los mete en un collection
Public Function separaElementosPorComa(texto As String) As Collection
Dim inic As Integer, coma As Integer
Dim a As Collection
Dim elemento As String
Set a = New Collection
inic = 0
coma = 1
While coma <> 0
coma = InStr(inic + 1, texto, ",")
'Si encontró la coma
If coma > 0 Then
elemento = Trim(Mid(texto, inic + 1, coma - inic - 1))
Else
elemento = Trim(Mid(texto, inic + 1, Len(texto) - inic))
End If
If elemento <> "" Then a.Add elemento
inic = coma + 1
Wend
Set separaElementosPorComa = a
End Function