مشكلة في التعامل مع الأخطاء في برنامجي ؟؟؟؟؟

السلام عليكم ورحمة الله وبركاته

جرب هذا

  On Error GoTo m
Dim s As String
s = "medooo"
If Text1.Text = s Then
	MsgBox "medooo rong"
Else
	MsgBox Text1.Text
End If
h = 5 * s
Exit Sub
m:
MsgBox "error message"

Private Sub Form_Load()
   On Error GoTo m
Dim s As String
s = "medooo"
If Text1.Text = s Then
	MsgBox "medooo rong"
Else
	MsgBox Text1.Text
End If
Exit Sub
m:
MsgBox "error message"
End Sub

يبدو انني لم انتبه للرد السابق

أخي بنهاشم منصوري لو تصغر توقيعك شوي لانه الصفحة لا تظهر بشكل سليم لانه توقيع عريـــــــــــــض

عموما كانت المشكلة بأنه يجب عليك الخروج من الاجراء حتى لا يصبح المسج بوكس جزء منه

أخي الكريم hicham716 مشكووووووور وجزاك الله كل خير لقد اشتغل الكود وهذا ما اريد شكرا وجزاك الله كل خير

أخي الكريم المزمجر مشكور وجزاك الله كل خير علي ردك الكريم