[حل شده] MsgBox

[میثم مقدم نیا]

سلام
چطور میتونم این پیام را دو بخشی کنم

If Cells(I, 4).Text = TextBox1.Text Then MsgBox "اين کد قبلا به اختصاص داده شده است به " & Cells(I, 5).Value, vbMsgBoxRight, "ثبت اطلاعات": TextBox1.Text = "": TextBox1.SetFocus: Exit Sub 

در عکس زیر پیغام (اين کد قبلا به اختصاص داده شده است به میثم مقدم نیا) نمایش داده میشه


من میخوام کد بالا را مثل کد پایین درست کنم نمیشه
پیغام به این صورت نمایش داده بشه اين کد قبلا به (میثم مقدم نیا) اختصاص داده شده است.

MsgBox "کاربر گرامي (" + TextBox3.Text + ") شما با موفقيت وارد شديد", vbMsgBoxRight, "خوش آمديد" 

لطفا راهنماییم کنید

[Amir Ghasemiyan]

سلام دوست عزيز

با چه پيغام خطايي مواجه مي شيد؟
اكسل به كدوم خط ايراد ميگيره؟ متني كه نوشتيد و خطا خورديد چيه؟

[میثم مقدم نیا]

سلام دوست عزيز

با چه پيغام خطايي مواجه مي شيد؟
اكسل به كدوم خط ايراد ميگيره؟ متني كه نوشتيد و خطا خورديد چيه؟

سلام
هیچ پیغام خطای نداره فقط میخوام یه تغییر کوچیک توش ایجاد بدم که مثل کد دوم عمل کنه

[iranweld]

سلام
هیچ پیغام خطای نداره فقط میخوام یه تغییر کوچیک توش ایجاد بدم که مثل کد دوم عمل کنه

MsgBox " : این کد قبلا به " & Cells(i, 5) & " اختصاص داده شده است ", vbMsgBoxRight, "ثبت اطلاعات" 

یا

MsgBox " : این کد قبلا به " & vbNewLine & Cells(i, 5) & vbNewLine & " اختصاص داده شده است  ", vbMsgBoxRight, "ثبت اطلاعات"