سؤال في التكست بارك الله فيكم

جرب هذا ورد على

a=text1.text
b=split(a,vbcrlf)
for i=0 to ubound(b)-1
c=split(b(i),":")
if (c(1)<>"") then
print c(1)
end if
next i

بارك الله فيك أخي لكن في خطأ في الكود

بس حبيت أنوه أن الأسطر كذلك تتغير أما الجمل

Email1				  :
Email2				  :
Email3				  :

فهي ثابته ياليت تحاول بارك الله فيك ووفقك

المشكلة كانت فى السطر الفاضى جرب دهوه

a = Text1.Text
b = Split(a, vbCrLf)
For i = 0 To UBound(b)
c = Split(b(i), ":")
If (UBound(c) = 1) Then
If (c(1) <> "") Then
 MsgBox c(1)
End If
End If
Next i

بارك الله فيك أخي على ردك بس يوجد مشكلة بسيطة وهي أن الكود السابق يقوم بأستقطاع الثلاث ايميلات

ووضعها في المسج بوكس بالتتابع أنا أريد فقط الأيميل الأول ووضعة في Text2 الأيميلات الباقية ماتهمني

وفقك الله وألف شكر على ردك.