Public Sub saveafile(ByVal savefilenaam)

        newtest.eerste = TextBox1.Text
        newtest.tweede = TextBox2.Text
        newtest.derde = TextBox3.Text
        newtest.vierde = TextBox4.Text

        If File.Exists(savefilenaam) = True Then
            Dim fs As New FileStream(savefilenaam, FileMode.Open, FileAccess.Write)
        Else
            Dim fs As New FileStream(savefilenaam, FileMode.CreateNew)

            Dim w As New BinaryWriter(fs)

            w.Write(newtest.eerste)
            w.Write(newtest.tweede)
            w.Write(newtest.derde)
            w.Write(newtest.vierde)
            w.Close()
            fs.Close()
        End If