Due Date

[SeaHag]

I have to make a program void after 90 day.. and warn at
85..
I have code... but need help with captions?

Any help appreciated..
Thnks

Private Sub Form_Load()
 
Dim DueDate As Date
    DueDate = "6/15/2002"
Dim WarningDdate As Date
    WarningDdate = "6/10/2002"
    
        If WarningDdate < Date Then
        
            If DueDate < Date Then
                MsgBox "Outdated Pricing. Please update...", vbCritical
            Else
            Dim days As Integer
                days = DueDate - Date
        
                MsgBox "Pricing in effect for " & days & " days", vbInformation
            End If
        End If
End Sub
 
 
Seahag