پیدا کردن یک رشته خاص در TextBox با تابع InStr در vb6

سلام دوستان من یک تکست بوکس دارم که میخوام یک جمله رو از این بیرون بکشم لطفا راهنمایی کنید میخوام در این تکست بوکس جملاتی که اینگونه maryam$rezaya$sadegh هستن بیارم بیرون بریزم در لیست بوکس جای این جملات هم تغییر میکنه که میخواستم با InStr این جملات رو بکشم بیرون که نشد بخاطر اینکه با هر بار رفرش تکس باکس جای جملات تغییر میکنه. کلمات درون این جمله هم تغییر میکنن...راهنمایی کنید ممنون.
یک نکته این هست که همیشه سه کلمه هستن که بین این کلمات $ وجود دارد. maryam$rezaya$sadegh

دوستان نیاز فوری دارم راهنمایی کنید.ممنون

خوب شما یه حلقه تعریف کن به اندازه ی تول کلمات تکست بعد توش بچرخش و با یه شرط ساده چک کن که اگه $ بود از این جا تا اون جا رو واسم جدا کن و بریز توی لیست

کد:

---


        Dim i As Integer

        Dim buff As String

        For i = 0 To str.Length - 1


            If Mid(Str,i, 1) = "*" Then


            List.Items.Add(buff)
                buff = String.Empty



            Else

                buff += Mid(str,i, 1)

            End If



        Next

---