پیدا کردن خط در متن

[toopdanlod]

با سلام
من یک متن چند خطی داشتم تو یک متغیر , می خواستم به اطلاعاتی از قبیل تعداد خط و متن هر خط و کلمه ای را که دنبالشم , بفهمم در خط چندم است را بدست بیارم .
از چه کد هایی باید استفاده کنم ؟
با تشکر

[xxxxx_xxxxx]

با يك حلقه دنبال كاراكترهاي vbCrLf بگرديد. دقت كنيد اينها دو كاراكتر محسوب مي شوند. Cr و Lf
با تابع Mid توي حلقه مي تونيد چك كنيد كه چندتا vbCrLf تو متغير وجود داره. اين تعداد همون تعداد خطوط برنامه هستند.

[amirrezan]

خوب همان طور که دوست عزیزمان فرمودند با تعداد vbnewline ها را بشماری
تابعی که برات نوشتم این کار رو انجام می ده

Private Function LineCount(rText As String) As Long
Dim Start As Long, Num As Long
Do
Start = InStr(Start + 1, rText, vbNewLine)
Num = Num + 1
Print Start
Loop While Start
LineCount = Num
End Function