ma che hai scritto???

Allora innanzitutto non puoi specificare che tipo di variabili dichiari(Dim strSUBDir As String 'non puoi specificare as string levalo) poi se ti arriva una stringa del genere: "1,2,3,4,5" basta che usi la funzione split e stai a cavallo!