Visual Basic.NET - almacenar valores de unr vector dentro de estructura en un archivo de texto

Structure Alumno

        Dim Materiaynotas() As Integer

    End Structure

Dim Alumno1 As Alumno

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        ReDim Alumno1.Materiaynotas(2)

        FileOpen(1, "c:\notas.dat", OpenMode.Random, , , Len(Alumno1))

        Alumno1.Materiaynotas(1) = 3

        'Alumno1.Materiaynotas(2) = 4

        Fileput(1, Alumno1, 1)

    End Sub

dim fila As List(Of String)'o fila() as string

 Dim sw As IO.StreamWriter = New IO.StreamWriter(archivo, False, System.Text.Encoding.Default)

For Each ele As String In fila

     sw.WriteLine(ele)

Next

sw.Close()

ReDim Alumno1.Materiaynotas(1)

        FileOpen(1, "d:\sss.dat", OpenMode.Random)

        Alumno1.Materiaynotas(0) = 3

        Alumno1.Materiaynotas(1) = 4

        FilePut(1, Alumno1)

        FileClose(1)

Structure person

    Dim id As Integer

    Dim name As String

End Structure

Dim patientrecord As person

        Dim recordnumer As Integer

        FileOpen(1, "d:\sss.txt", OpenMode.Binary)

        'loop 5 times

        For recordnumer = 1 To 5

            patientrecord.id = recordnumer

            patientrecord.name = "name " & recordnumer

            FilePut(1, patientrecord)

        Next recordnumer

        FileClose(1)