Dim i, x As Integer
    i = FreeFile
    Open App.Path & "\Values.dat" For Output As #i
      For x = 0 To lstValues.ListCount - 1
        Print #i, lstValues.List(x)
      Next x
    Close i

Dim a As String
 
If Len(Dir$(App.Path & "\Values.dat", vbNormal)) > 0 Then
      i = FreeFile
      Open App.Path & "\Values.dat" For Input As #i
        Do While Not EOF(i)
          Input #i, a
          lstValues.AddItem (a)
        Loop
      Close i