[RESOLVED] Pulling from a text document, yet no value?

[kfcSmitty]

I am trying to pull 3 different values from a text document in the format of
1 value per line.
IE) 6
19
6/12/2005

It pulls the first and last values out, but I seems to refuse to pull out the middle value.

my code is as follows

Private Sub Form_Load()
Dim DatesLength As Integer
Open "H:\JOB\Dates.txt" For Input As #1
PayIncreaseComboBox.Value = Input(2, #1)
ShowLabels
Dim ctl As Control
For Each ctl In Me.Controls
If ctl.Visible = True Then
    If ctl.Name Like "DTPicker*" Then
        DatesLength = Val(Input(2, #1))
        MsgBox (DatesLength)
        ctl.Value = Input(DatesLength, #1)
    End If
End If
Next
Close #1
End Sub

Anyone have any ideas?

[Static]

Grab the whole file and split out by line:

Dim lines() as string
Dim tmp as string
Open "H:\JOB\Dates.txt" For Input As #1
tmp = input(lof(1),1)
Close #1
lines = Split(tmp,vbcrlf)
'the following will be the values of lines()
lines(0) = 6
Lines(1) = 19
lines(2) = 6/12/2005

[kfcSmitty]

Thank you soooo much!

The code you gave me even lets me omit some of the data i have in the text document!!

[Static]

Glad to help