まず、ReadToEndメソッドですが、これは現在位置からファイルの最後までを読み込むものです。
ですので、
　　Dim Line As String = Reader.ReadToEnd 'CSVの一行
この部分でLineにファイルの全部を読み込んでしまい、
　　Line = Reader.ReadLine                  '次の行を読み込む。
の部分では読み込むものがすでにない状態になってしまっています。
ですので、Reader.ReadToEndの部分をReadLineメソッドに変更すれば、最初の1行を読み込むことになります。


次にループ内の処理ですが、現状ですと2回目のループ以降（2行目以降の時）に
各変数やラベル等が上書きされて残らない状態になります。
ですので、読み込んだ内容を配列等に格納した後、表示する時はそこから表示するという流れになると思います。