تبدیل 2 تاکد از vb6 به vb.net

[SHD.NET]

سلام دوستان

می خواستم بدونم معادل این دوتا تیکه کد توی دات نت چی میشه ؟؟؟

ممنون

Open App.Path + "\Shd.txt" For Append As #1
Write #1, Text1.Text
Close #1


Open App.Path + "\shd.txt" For Append As #1
Do While Not EOF
Input #1, a1
List1.AddItem (a1)
Loop
Close #1

[Mani_rf]

این صفحه (http://msdn.microsoft.com/en-us/library/afh37kh8(v=vs.71).aspx) را مطالعه کن

FileOpen(1, Application.StartupPath & "\shd.txt", FileMode.Append)
Write(1, Text1.Text)
FileClose(1)

Dim str As New StreamReader(Application.StartupPath & "\shd.txt")
Do While Not str.EndOfStream
List1.Items.Add(str.ReadLine)
Loop