VB Code:
On Error GoTo 1
With CD1
.DialogTitle = "Open User File"
.Filter = "All Supported Types|*.usr;*.txt;*.dat|"
.ShowOpen
Dim sText As String
Dim x As Integer
x = FreeFile
On Error Resume Next
Open .FileName For Input As #x
While Not EOF(x)
Input #x, sText$
If sText$ = "" Then
Exit Sub
Else
List1.AddItem sText$
DoEvents
End If
Wend
Close #x
End With
Exit Sub
1
Exit Sub
Im just looking for advice on what the best load code is and if anything here could be changed to make it better? Thanks guys I appreciate your help :)