چگونه حرفی را میان متن تشخیص دهیم و بعد میان آنها را جدا سازی کنیم

Matn = "+" 'کلمه ای که می خواهید بر اساس ان جستوجو کند و پیدا کند
For b = 1 To Len(Text1.Text)
If Mid(Text1.Text, b, Len(Matn)) = Matn Then zz = zz + 1
Next b
Joda = Split(Text1.Text, Matn)
For a = 0 To zz
Print Joda(a) ' متن را در اینجا چاپ میکند
Next a