初心者です。VB2008Expressを使用しています。下記のような状況で躓いています。
ヒント等ありましたらよろしくお願いします。


フォーム上にはテキストボックスとボタンがあります。
テキストボックスに読み込んだテキスト（データは全て半角です）を行単位で処理したい。
処理：
行頭に数字があった場合はその行の文字数を数える。
文字数が７０に満たない場合
行末に文字数が70になるまで半角スペースを加える。



 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim StrPad As Long

        Dim rs As New System.IO.StringReader(TextBox1.Text)

        While rs.Peek() > -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
                StrPad = 70 - rs.ReadLine().Length
                If StrPad > 0 Then

                    ここの処理がわかりません。Readlineを使ってしまうと
　　　　　　　　　　文字の編集は出来ないのでしょうか？

                End If
            Else
               
            End If



        End While

        rs.Close()

    End Sub