[VB08]Salvare/caricare una listbox

[GhostFire]

Ciao a tutti,ho effettuato una ricerca con google trovando quello che cercavo (e anche funzionante) ma purtroppo sul visual basic 2008 non funziona quindi vorrei chiedervi se potevate convertirmi questi due codici per la versione 2008:

Private Sub SaveList(lst As ListBox, file As String)
On Error GoTo error
Dim I As Integer
Dim a As String
Open file For Output As #1
For I = 0 To lst.ListCount - 1
a = lst.List(I)
Print #1, a
Next
Close 1
Exit Sub
error:
MsgBox "There has been a error!", vbOKOnly, "Error"
End Sub

Private Sub LoadList(lst As ListBox, file As String)
On Error GoTo error
Dim a As String
Open file For Input As #1
Do Until EOF(1)
Input #1, a
lst.AddItem a
Loop
Close 1
Exit Sub
error:
MsgBox "File Not Found", vbOKOnly, "Error"
End Sub

Ho provato per circa 2 o 3 ore a convertirlo ma non sono riuscito a convertire nemmeno una riga del codice...