Dim DataKeyArray() As String
Dim DataValueArray() As String
Dim i, n, k
k = 0
Path = "C:\Documents and Settings\Desktop\datafile.txt"
DF = FreeFile
Open Path For Input As #DF
Do Until EOF(DF)
Line Input #DF, a
k = k + 1
Loop
Close #DF
Open Path For Input As #DF
For i = 1 To k
ReDim DataKeyArray(k)
Do Until EOF(DF)
Line Input #DF, DataKeyArray(i)
Picture7.Print DataKeyArray(i)
Loop
Next
Close #DF

Dim strings() As String
Dim fso As Object, txt As Object
Const Path As String = "C:\Documents and Settings\Desktop\datafile.txt"

Set fso = CreateObject("Scripting.FileSystemObject")
Set txt = fso.OpenTextFile(Path)
strings = Split(txt.ReadAll, vbNewLine)
txt.Close
Set txt = Nothing
Set fso = Nothing