Riprendendo l'esempio di Oregon
Originariamente inviato da oregon
Oppure

codice:
Dim S As String
Dim arr() As String
Const RigaDaVisualizzare = 5

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