Código:
Dim str As String, index As Long
str = "1;Raul Sosa;4512-4525;Av. Cabildo 2532;10852635;etc."
index = InStr(1, str, ";", vbTextCompare)
MsgBox Mid(str, 1, index - 1)
Eso es solo para extraer la primera columna, ahora si quieres extraer todas bastara con hacer un bucle