Leer Archivo Texto separado por ; (pto y coma)

Primero de todo disculpa por mi tardía respuesta, pero ya sabes las vacaciones ;). Supongo que ya lo habrás resuelto pero ahí va lo que usé en su tiempo:
Dim lineas() As String, i As Long
' Obtengo todas las líneas contenidas en el archivo
lineas() = Split(LeerArchivoTexto(nombreFichero), vbCrLf)
' Para borrar las líneas vacías, las cargo con un carácter especial
For i = 0 To UBound(lineas)
If Len(lineas(i)) = 0 Then lineas(i) = vbNullChar
Next
' y luego utilizo la función Filter para borrar esas líneas.
lineas() = Filter(lineas(), vbNullChar, False)
' Creo un array de cadena por cada líneas de texto y la almaceno en un elemento Variant
ReDim valores(0 To UBound(lineas)) As Variant
For i = 0 To UBound(lineas)
valores(i) = Split(lineas(i), ";")
Next
ImportarCDRs = valores()
End Function
Function
LeerArchivoTexto(nombreFichero As String) As String
Dim numlib As Integer, isOpen As Boolean
On Error GoTo Manejador_Error
' Obtengo el siguiente número libre de archivo
numlib = FreeFile()
Open nombreFichero For Input As #numlib
' Se ha abierto el fichero sin problemas
isOpen = True
' Leo todo el contenido en una única operación
LeerArchivoTexto = Input(LOF(numlib), numlib)
' Cierro el archivo
Manejador_Error:
If isOpen Then Close #numlib
If Err Then Err.Raise Err.Number, , Err.Description
End Function