Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim txtListGrades() As String = {"A+", "A", "B", "C", "D", "F"}
        FileOpen(1, "C:\arraywrite.txt", OpenMode.Output)
        WriteLine(1, txtListGrades)
        FileClose(1)
    End Sub