Someone

Private Sub listtoggle_Click()
Dim st As String
Dim z As Integer



If listtoggle.Value = False Then
pointlist.Visible = False
listtoggle.Caption = "List On"


    Open App.Path & "\" & "list.sav" For Output As 1
        For z = 0 To pointlist.ListCount - 1
            pointlist.ListIndex = z
            Print #1, pointlist.Text
        Next
    Close 1


Else
pointlist.Visible = True
listtoggle.Caption = "List Off"


  Open App.Path & "\" & "list.sav" For Input As 1
        Do Until EOF(1)
            Line Input #1, st
            pointlist.AddItem st
        Loop
    Close 1
End If


End Sub