sLines = Split(strCopyBuffer3460, vbCrLf) 
For iCounter = 0 To UBound(slines)-1 
ReDim Temp() As Variant 
Temp = Split(sLines(iCounter), ";") 
Next iCounter

dbayerTo be is to do (Rene Descartes)To do is to be (Kant / Nietzsche / Sartre u.a.)Do be do be dooo (Frank Sinatra, Strangers in the Night)