改行ごとの頭に空白を入れるには???

以前、リンクさせた文字列を任意の位置で改行させたい…として質問をしたところ、
以下のようなマクロを作成してくださった方がいらっしゃいます。
私の説明が悪かったのですが、
１行目のみではなくて、改行ごとに，頭に１文字空白を入れたかったのですが、
どこをどのように直したら良いのか、教えてください。

'指定文字数で折り返し。（先頭に全角空白を挿入）
Public Function Orikaeshi(Bunsyo As String, ParamArray aryNagasa() As Variant)
Dim L As Integer 'カウンタ
Dim mojisuu As Integer '１行文字数
Dim wkBunsyo As String '処理用変数

Bunsyo = "　" & Bunsyo
For L = 0 To UBound(aryNagasa())
If L = 0 Then
mojisuu = aryNagasa(L)
Else
mojisuu = aryNagasa(L) - aryNagasa(L - 1)
End If
wkBunsyo = wkBunsyo & Left(Bunsyo, mojisuu) & vbLf
Bunsyo = Mid(Bunsyo, mojisuu + 1)
Next
wkBunsyo = wkBunsyo & Bunsyo
Orikaeshi = wkBunsyo
End Function

No.1 ベストアンサー 回答者： MSZ006 回答日時： 2001/08/05 14:36

下から６行目を

wkBunsyo = wkBunsyo & Left(Bunsyo, mojisuu) & vbLf　& "　"
とすれば良いと思います。（行末に& " "を追加する）
試していないので違ってたらすみません。

この回答へのお礼

助かりました。
ありがとうございました。

お礼日時：2001/08/08 12:00