Applying TextBox Values to a String

Hey folks,
Can anybody offer any Advice on this piece of code?
Ite returning a 'RunTime Error '424': Object Required

Dim NoDate As Boolean
------------------------------------


Sub DateField()

If TextBox1.Value = False Then
MsgBox ("Enter This Weeks Date")
NoDate = True
Exit Sub
Else
strDate = TextBox1.Value
End If


End Sub