Thanks for Welcome :)
what i did
i have a user form, one list box and button
my code
Private Sub CommandButton1_Click()
Dim mytext As String
'mytext = text1.Text
Open "c:\myfile.txt" For Append As #1
For i = 1 To ListBox1.ListCount
Write #1, ListBox1.Text
Next
Close #1
End Sub
Private...