Module not working

[georgeC]

This took me a while to get this on module, but could not figure out what is wrong.

This is a module to be called from a form and to generate labels within an Input Date range.

Any idea or suggestions

strStartdate As String
strEnddate As String
strStartdate = InputBox("Prompt", "Message")

If IsDate(strStartdate) = False Then
mesgbox "Error: This is not a date"
Exit Sub

Else
strEnddate = InputBox("Prompt", "Message")
If IsDate(strEndate) = False Then
MsgBox "Error: Invalid Date"
End If

End If

 

[Travis]

This Proceedure, Whats Wrong?. Without the Proceedure call line or any other detail its hard to tell what is wrong. Can you be a little clearer?