[VB] 配列の内容をテキストファイル出力＆テキストファイルを配列に入力

質問

現在ひとつプログラムを作っているのですが、流れ的に
(1)テキストファイルを読み込み、その内容を配列に読みこむ
(2)処理（ランキングのためのソート等）
(3)配列の内容をテキストファイルに書き込む

という内容にしたいです。
しかしいろいろ試してみたのですが、残念ながらうまく出力されていないのか、２度目に動かしたらエラーがでます。
ご教授お願いいたします。

回答No.2

AKARI0418

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'今回登録するデータ
Dim name1 As String = "テスト"
Dim score As Integer = 10

'ワーク用エリア
Dim rank As List(Of Ranking) = Nothing

'データファイルパス
Const datpath As String = "D:\desk\学校ファイル\tez授業\VB\rensyakyo\rensyakyo\bin\Debug\Ranking.txt"

'ファイル読み込み
If System.IO.File.Exists(datpath) AndAlso New System.IO.FileInfo(datpath).Length > 0 Then
'ファイルストリームを使用して読み込む
Using fr As New System.IO.FileStream(datpath, IO.FileMode.Open, IO.FileAccess.Read, IO.FileShare.Read)
Try
'シリアライズされたデータの展開
Dim bf As New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
rank = bf.Deserialize(fr)
Catch ex As Exception
Throw
End Try

End Using
End If

'ファイルなしの場合
If rank Is Nothing Then
rank = New List(Of Ranking)
End If

'追加用データ作成
Dim myrank As New Ranking With {.name = name1, .score = score}
'VB2005以前の場合
'Dim myrank As New Ranking
'myrank.name = name1
'myrank.score = score

'データ追加
rank.Add(myrank)

'スコアの降順にソート
rank.Sort(AddressOf hikaku)

'登録データのインデックスを取得
If rank.IndexOf(myrank) < 4 Then
'状況.Text = "ランクインしました！！"
Console.WriteLine("Rank In")
Else
'状況.Text = "またがんばれよ！"""
Console.WriteLine("Out of Rank")
End If

'nameいち.Text = rank(0).name
'いち.Text = rank(0).score

'ファイル出力
Using fw As New System.IO.FileStream(datpath, IO.FileMode.Create, IO.FileAccess.Write, IO.FileShare.None)
Try
'ワーク用エリアシリアライズして出力
Dim bt() As Byte
Dim bf As New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
Dim ms As New System.IO.MemoryStream
bf.Serialize(ms, rank)
bt = ms.ToArray
fw.Write(bt, 0, bt.Count)
Catch ex As Exception
Throw
End Try

End Using
End Sub

''' <summary>
''' ソートロジック
''' </summary>
Function hikaku(ByVal x As Ranking, ByVal y As Ranking) As Integer
Return y.score - x.score
End Function

End Class
''' <summary>
''' 格納データのフォーマット
''' </summary>
''' <remarks></remarks>
<Serializable()> _
Public Class Ranking
Public name As String
Public score As Integer
End Class

こんな感じでやってみてください。

補足

ここまで詳しく書いていただいてありがたいのですが、どうしてもエラーが出ます。
''' <summary>
''' 格納データのフォーマット
''' </summary>
''' <remarks></remarks>
<Serializable()> _
特に↑の部分です。。。
初心者なので申し訳ありません。
ちなみに開発環境はVisual Studio 2008です