VBで改段

現在VBで強制改行を下記のように行っています。
       For iPoint = 1 To iStrLen
           If (Mid$(strDb, iPoint, 1) = Chr$(&HF0C2)) Then
               strDraw = strDraw & Chr$(&HA)
           Else
               strDraw = strDraw & Mid$(strDb, iPoint, 1)
           End If
       Next

これを、改段処理にしたいのですが、“0A”の文字コードを単純に改段コード（どうもこのようなコードはないようです）にすることはできないようです。
改段のメソッドがわかりませんので、すみませんが教えていただけませんか。
よろしくお願いします。