皆様ありがとうございます。

for文の開始を
For i As Integer = UBound(Data) To LBound(Data) Step -1
に変え、If文の開始を
If Data(i).Length <> 0 Thenに変え、さらに&演算子を使用することでうまく値を取ることができました。

HiDE-Adaさんのおっしゃるとおり、aを初期化しないといけなかったのでその処理も入れました。