شمارش new line ها در تکست باکس

[RAMA2009]

سورس کد تعداد اینترهای زده شده در تکست باکس؟
مثلا :
یک تکست باکس، حاوی n خط نوشته میباشد،
چگونه هرکدام از new line ها (chr(13)) را تشخیص دهم و در آن مکان، متنی را اضافه کنم؟

[Di Di]

S = مكان اولين Enter‌ رو نمايش مي ده.

کد:

S = InStr(1, Text1, vbNewLine)

Num = تعداد اينترهاي زده شده رو نمايش مي ده

کد:

S = 0
While InStr(S + 1, Text1, vbNewLine) > 0
    Num = Num + 1
    S = InStr(S + 1, Text1, vbNewLine)
Wend
MsgBox Num

با اين كد مي تونيد تمام اينترها را يافته و به جاي اون متن مورد نظر خودتون رو قرار بديد

کد:

Text1 = Replace(Text1, vbNewLine, "[Enter]" & vbNewLine)

[RAMA2009]

فرض کنید، یک تکست باکس، حاوی n خط نوشته میباشد؛
چگونه اولین کاراکتر را (در اولین خط و پس از آن) در ابتدای هر خط جدید، تشخیص داده و به خروجی ببرم؟