Ok well im just curious about the load code now and this is what I use at the time:
VB Code:
  1. On Error GoTo 1

  2.     With CD1

  3.         .DialogTitle = "Open User File"

  4.         .Filter = "All Supported Types|*.usr;*.txt;*.dat|"

  5.         .ShowOpen

  6. Dim sText As String

  7.     Dim x As Integer

  8.     x = FreeFile

  9.     On Error Resume Next

  10.     Open .FileName For Input As #x

  11.     While Not EOF(x)

  12.         Input #x, sText$

  13.             If sText$ = "" Then

  14.             Exit Sub

  15.             Else

  16.             List1.AddItem sText$

  17.             DoEvents

  18.             End If

  19.     Wend

  20.     Close #x

  21.         End With

  22.     Exit Sub

  23. 1

  24. 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