Marty,
What is Quick Watch {Darn the focus loss! What, is THIS add now doing that!!!}
Anyways,
You could also do a msgbox. ie...
VB Code:
Private Sub Command1_Click()
k = 5 'temporary file length
'open "c:\usrtest.txt" for input as #1 '<<this line works when i swap it in
MsgBox( strDataFileName )
Exit sub
Open strDataFileName For Input As #1 '<<this line won't when i select the same file
ReDim Node(2, k)
i = 0
Do While Not EOF(1)
Input #1, lLat
Input #1, lLon
Input #1, bCon
Node(0, i) = lLat
Node(1, i) = lLon
Node(2, i) = bCon
i = i + 1
Loop
Close #1
i = 0
Label3.Caption = Node(0, 0) & Node(1, 0) & Node(2, 0)
For i = 0 To k
Debug.Print Node(0, i); Node(1, i); Node(2, i)
Next i
End Sub