Dim s1() As String = {"abc", "cde", "def"} ' Ein Array
        Dim bf As New _
          System.Runtime.Serialization.Formatters.Binary.BinaryFormatter()
 
        ' Daten schreiben
        Dim fs As New FileStream("C:\mydata.dat", FileMode.Create, _
          FileAccess.Write, FileShare.None)
        bf.Serialize(fs, s1)
        fs.Close()
 
        ' Daten lesen
        fs = New FileStream("C:\mydata.dat", FileMode.Open, FileAccess.Read, _
          FileShare.Read)
        Dim s2() As String = bf.Deserialize(fs)
        fs.Close()

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov