جدا کردن رشته ها (قبل و بعد @)

[___mehdi.rato___]

سلام

فرض کنید یه لیست داریم به شکل زیر:

Ali@12345
Mehdi@9876
zzz@567890
AmirAli@123

میخوام قبل و بعد @ رو بریزم تو 2 تا لیست مختلف.

سوالم اینه:
مثلا رشته "Mehdi@123" یا "zzz@12345" رو چطوری جدا کنم؟ (قبل و بعد @ رو)

مثال:

Text1="Mehdi@123"

بشه

Text2="Mehdi"
Text3="123"

گشتم چیزی پیدا نکردم با توابع رشته ای مثل Len, Mid, Trim, Replace و ... نتونستم چیزی بنویسم.
لطفا راهنمایی کنید.

[meys34]

سلام

تابع split

Dim a() As String

a = Split(Text1.Text, "@")

Text2.Text = a(0)
Text3.Text = a(1)