Best Save Code*Resolved-thanks*

[_Vb_N00bie_]

Ok im just curious what the best code is to save the contents in List1... I have code but people say it isnt that good and it is:

On Error GoTo Error_Killer
    With CD1
        .DialogTitle = "Save Log File"
        .Filter = "All Supported Types|*.log;*.crk;*.txt|"
        .ShowSave
    Dim Nbr As Long
    On Error Resume Next
    Open .FileName For Output As #1
    For Nbr = 0 To List1.ListCount - 1
        Print #1, List1.List(Nbr)
    Next Nbr
    Close #1
    End With
    Exit Sub
Error_Killer:
Exit Sub

So im just using a command button to save the contents of List1... So how would I change it to make it the best way possible? Really appreciate the help guys thanks