Private Sub Command1_Click()
 
    Call SaveItems(List1, "C:\Data.txt")
 
End Sub
 
Private Sub Command2_Click()
 
    Call LoadItems(List1, "C:\Data.txt")
 
End Sub
 
Private Sub Form_Load()
 
    For i = 0 To 10
        List1.AddItem "Item" & i, i
    Next i
 
End Sub
 
Private Sub SaveItems(List As ListBox, Path As String)
 
    Dim strSaveString As String
 
        For i = 0 To List1.ListCount - 1
            strSaveString = strSaveString & List1.List(i) & ";" & CLng( _
              List1.Selected(i)) & vbCrLf
        Next i
 
    Dim F As Integer
        F = FreeFile
 
        Open Path For Output As #F
            Print #F, strSaveString
        Close #F
 
End Sub
 
Private Sub LoadItems(List As ListBox, DataPath As String)
 
    Dim intIndex As Integer
    Dim LineOfText As String
    Dim strSplit() As String
    Dim F As Integer
        F = FreeFile
 
 
    If Dir(DataPath) <> "" Then
 
        List.Clear
 
        Open DataPath For Input As #F
            Do Until EOF(F)
              Line Input #F, LineOfText
                strSplit = Split(LineOfText, ";")
 
                If UBound(strSplit) = 1 Then
                    List.AddItem strSplit(0), intIndex
                    If CLng(strSplit(1)) <> 0 Then List1.Selected(intIndex) = True
                End If
 
                intIndex = intIndex + 1
            Loop
        Close #F
 
    End If
 
End Sub

Mit freundlichen Gr??en,
Andy G.