Ciao a tutti,devo salvare il contenuto di una lista in un file txt e per far questo sto usando questo codice che mi da errore:
codice:
    Private Sub SaveList(ByVal lst As ListBox, ByVal file As String)
        On Error GoTo err
        Dim I As Integer
        Dim a As String
Open file For Output As #1
        For I = 0 To lst.Items.Count - 1
            a = lst.Items(I)
Print #1, a
        Next
        Close(1)
        Exit Sub
err:
        MsgBox("There has been a error!", vbOKOnly, "Error")
    End Sub
Gli errori che mi da li ho sottolineati