複数のMsgBoxを1つにマージする

Question

複数のMsgBoxを1つにマージしようとしていますが、運がありません。 あなたに理想があれば、助けてください。これは私のVBAです：

If Worksheets("XXX").Range("D13") > 0 Then 

MsgBox ("ATENTION!" & vbCrLf & "OLD = ") & Worksheets("XXX").Range("D13") & " PCS !" 
End If 

If Worksheets("XXX").Range("E13") > 0 Then 
MsgBox ("ATENTION!" & vbCrLf & "REQUEST = ") & Worksheets("XXX").Range("E13") & " PCS !" 
End If 

ありがとう！

Answer 1

両方のメッセージを1つのボックスに表示しますか？このような？

Dim msg As String 
If Worksheets("XXX").Range("D13") > 0 Then 
    msg = "ATENTION!" & vbCrLf & "OLD = " & Worksheets("XXX").Range("D13") & " PCS !" 
End If 

If Worksheets("XXX").Range("E13") > 0 Then 
    msg = msg & vbCrLf & "ATENTION!" & vbCrLf & "REQUEST = " & Worksheets("XXX").Range("E13") & " PCS !" 
End If 
MsgBox msg