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