VB 保存自定义结构数组到文件

private type xxx
a as string
b as string
c as string
end type

dim m_data(10) as xxx

m_data(.)..... 初始化

然后怎么把m_data 保存到 c:\123data.dat
下次再 读到 m_data 中！怎么弄？

Private Type xxx
a As String
b As String
c As String
End Type

Private Sub Form_Load()

Dim m_data(10) As xxx
Dim m_data1(10) As xxx
'测试
For n = 0 To 10
m_data(n).a = n
m_data(n).b = n
m_data(n).c = n
Next
'写入
Open "c:\123data.dat" For Binary As #1
Put #1, 1, m_data
Close #1
'读取
Open "c:\123data.dat" For Binary As #1
Get #1, 1, m_data1
Close #1'
'测试读取
MsgBox UBound(m_data1)
MsgBox m_data1(UBound(m_data1)).a
End Sub