Message box that returns a cell value if a criteria is met.

Hello,

I have the following code:

Private Sub Workbook_Open()
   Dim cl               As Range
   Dim lMaxRows         As Long
   Dim lMaxCols         As Long
    
   With Sheets("VOI Date")
      lMaxRows = getItemLocation("*", .Cells)
      If lMaxRows = 0 Then Exit Sub
      lMaxCols = getItemLocation("*", .Cells, bFindRow:=False)
      For Each cl In Worksheets("VOI Date").Range("J4:J1177")
         If IsDate(cl) Then
            If Now >= cl Then
               MsgBox "Please review the date in cell " & cl.Address(False, False) & " s the VOI is about to expire."
            End If
         End If
      Next
   End With
End Sub

This section

MsgBox "Please review the date in cell " & cl.Address(False, False) & " s the VOI is about to expire."

returns the cell that the date has passed in.

I would like it to return a different cell value in the message box, for example if J4 has passed its date, then B4 cell value is put in the message box instead.

Thank you for the help in advanced.