Я как бы сталкиваюсь с той же проблемой. Я хотел, чтобы в моем окне сообщения отображалось сообщение и предложение vendorcontractexpiration. Это то, что я сделал:
Dim ab As String
Dim cd As String
ab = "THE CONTRACT FOR THIS VENDOR WILL EXPIRE ON "
cd = VendorContractExpiration
If InvoiceDate >= VendorContractExpiration - 120 And InvoiceDate < VendorContractExpiration Then
MsgBox [ab] & [cd], vbCritical, "WARNING"
End If