Assign label caption based off of textbox value

MileHigh_PhD,

Here's one way...

Dim WCCnb As Date

On Error Resume Next
WCCnb = CDate(Me.txtWCCnb.Text)
On Error GoTo 0

If WCCnb = 0 Then
    Me.lblWCCnb.Caption = "Not Completed"
Else
    Select Case (WCCnb > Int(Now))
        Case True:  Me.lblWCCnb.Caption = "Scheduled for " & Format(WCCnb, "mm/dd/yyyy")
        Case Else:  Me.lblWCCnb.Caption = "Completed on " & Format(WCCnb, "mm/dd/yyyy")
    End Select
End If

Try:

Sub WantADate()

Dim WCCnb As String
WCCnb = Me.txtWCCnb.Value

If IsDate(WCCnb) = True Then
    If WCCnb > Date Then
        lblWCCnb.Caption = "Scheduled for " & WCCnb
    ElseIf WCCnb <= Date Then
        lblWCCnb.Caption = "Completed on " & WCCnb
    End If
Else:
    lblWCCnb.Caption = "Not Completed"
End If
End Sub

Untested.

@Tiger

What happens if CDate gets to a non-Numberic value? Does it ignore?

@ Tiger

I'm assuming by going over your code that CDate returns 0 if the value is not a date. Is that a correct assumption?

Originally Posted by XeRo Solus

I'm assuming by going over your code that CDate returns 0 if the value is not a date. Is that a correct assumption?

You beat me to it Yes, that is correct.

@XeRo Solus,

Normally anything that can't be converted to a date results in an error. The 'On Error Resume Next' line suppresses any error that would occur and the 'On Error GoTo 0' line removes the 'On Error Resume Next' condition.
If there was an error then the variable didn't have a value assigned to it and so remains with its default value of 0. Checking if it is still at its default value shows that the textbox had a non-date value, like the text "Not Completed" and so the output is also "Not Completed". If it was assigned a value, then it has been converted to a date and can be compared against other dates as normal.

While there are many other methods to accomplish the same thing, I personally prefer this one because it is straightforward and easy to work with.