POP UP message creation

The first code should just be:

Private Sub Workbook_Open()
Dim Count As Long
Count = Sheets("KolWB").Evaluate("COUNTIF(I:I,TODAY())")
If Count Then MsgBox "you have " & Count & " contracts expired"
End Sub