(1)  Dim m As Match = Regex.Match((Strings.Left(rs.ReadLine(), 1)), "^[\+\-]?\d+$")        '
     If m.Success = True Then
      'Moji su ga 70 yori nanmoji sukunaika kakunin
(2)    StrPad = 70 - rs.ReadLine().Length

(1)と(2)で２行読まれるから、しかも(2)で読んだ内容は捨てられるから、まずいですね。
一度、文字変数に代入して置くべきでしょう。

何かのサンプルコードを参考にしているのかもしれませんが、ステートメントの一語一語を
理解しないと発展しませんよ。