[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?