Oppure

codice:
Dim S As String
Dim arr() As String

Open file For Binary As #1
S = Space$(LOF(1))
Get #1, , S
arr = Split(S, vbCrLf)
Close #1