vb 如何保存数组到文件（具体如下）

Dim n() As String, i As Long
Dim StrOut As String
Private Sub cmdadd_Click()
ReDim Preserve n(i) As String
If i > 0 Then
    For j = 0 To UBound(n)
        If cboname.Text = n(j) Then
            MsgBox ("已有课程，勿重复添加")
            Exit Sub
        End If
    Next
End If
n(i) = cboname.Text
cboname.AddItem n(i)
i = i + 1
End Sub

Private Sub cmdsave_Click()
Open App.Path & "\courses.txt" For Output As #1
Print #1, StrOut
Close #1
End Sub

Private Sub picout_Click() '假设你输出到pic用的是这个事件
StrOut = StrOut & Txtid.Text & "        " & cboname & "             " & cbocredit & vbCrLf
picout.Print Txtid.Text & "        " & cboname & "             " & cbocredit
End Sub