چک کردن خطا و نمایش ان در msgbox

[30rabi]

با سلام خدمت اساتید محترم
چگونه می توان خطا ها را بوسیله msgbox کنترل کرده و نمایش داد؟برای مثال یکسری تکست باکس هست و من میخوام هرکدوم که مغایر با شرط هستش رو در msgbox (به صورت یکجا) نشون بدم
با تشکر

[volkswagen]

سلام خدمت شما
بنده این کد رو همین الان نوشتم.در نتیجه ممکنه کمی غیر استاندارد و... باشه که باید ببخشید.



Private Sub Command1_Click()
If Text1.Text = "" And Text2.Text = "" And Text3.Text = "" Then
MsgBox "لطفا خطاهاي زير را اصلاح نماييد" & vbCrLf & "فيلد اول خالي است" & vbCrLf & "فيلد دوم خالي است" & vbCrLf & "فيلد سوم خالي است"
Else
If Text1.Text = "" And Text2.Text = "" Then
MsgBox "لطفا خطاهاي زير را اصلاح نماييد" & vbCrLf & "فيلد اول خالي است" & vbCrLf & "فيلد دوم خالي است"
Else
If Text1.Text = "" And Text2.Text <> "" And Text3.Text <> "" Then
MsgBox "لطفا خطاهاي زير را اصلاح نماييد" & vbCrLf & "فيلد اول خالي است"
Else
If Text2.Text = "" And Text3.Text <> "" And Text1.Text <> "" Then
MsgBox "لطفا خطاهاي زير را اصلاح نماييد" & vbCrLf & "فيلد دوم خالي است"
Else
If Text3.Text = "" And Text2.Text <> "" And Text1.Text <> "" Then
MsgBox "لطفا خطاهاي زير را اصلاح نماييد" & vbCrLf & "فيلد سوم خالي است"
Else
If Text1.Text = "" And Text3.Text = "" Then
MsgBox "لطفا خطاهاي زير را اصلاح نماييد" & vbCrLf & "فيلد اول خالي است" & vbCrLf & "فيلد سوم خالي است"
Else

If Text2.Text = "" And Text3.Text = "" Then
MsgBox "لطفا خطاهاي زير را اصلاح نماييد" & vbCrLf & "فيلد سوم خالي است" & vbCrLf & "فيلد دوم خالي است"
Else
End If
End If
End If
End If
End If
End If
End If
end sub

[vbhamed]

سلام


Dim m$

If شرط1 Then m = m & "خطاي 1" & vbCrLf
If شرط2 Then m = m & "خطاي 2" & vbCrLf
If شرط3 Then m = m & "خطاي 3" & vbCrLf
If شرط4 Then m = m & "خطاي 4" & vbCrLf
If شرط5 Then m = m & "خطاي 5"

MsgBox m