Code:
Option Explicit

Private Sub Command1_Click()
    Open "C:\my documents\mytext.txt" For Output As #1
    Dim i As Integer
    For i = 0 To lstbox.ListCount - 1
    lstbox.ListIndex = i
    Print #1, lstbox.Text
    Next
End Sub

Private Sub Form_Load()
    Dim i
    For i = 1 To 10
    
    lstbox.AddItem i
    Next i
End Sub

Private Sub lstbox_DblClick()
 lstbox.RemoveItem (lstbox.ListIndex)
End Sub