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 Mid(a, 2)
        If Left(a, 1) = "1" Then lstValues.Selected(lstValues.ListCount - 1) = _
          True
    Loop
    Close i
End If