کد درج و خواندن فایل ترتیبی و نمایش آن در یک لیست باکس

[Omid_hope]

سلام دوستان من می خوام برنامه بنویسم که بتونه با زدن دکمه Add یک متنی رو به فایل ترتیبی اضافه کنه و با زدن دکمه Show متن رو از فایل ترتیبی خونده و در یک لیست باکس نمایش بده . ممنون می شم که کمکم کنید .

[hmrbesharat]

Private Sub Add_Click()
Dim temp As String
temp = InputBox("string")
Open "c:\a.txt" For Append As #1
Print #1, temp
Close
End Sub

Private Sub Show_Click()
List1.Clear
Dim temp As String
Open "c:\a.txt" For Input As #1
While Not EOF(1)
Line Input #1, temp
List1.AddItem temp
Wend
Close
End Sub