Fixed it like this:
Private Sub Activity_Status_Click()
Dim deletetxt As String
If Me.Activity_Status = False Then
Me.Delete_Date = Date
MsgBox "Please enter a reason for inactivating this user.", vbOKOnly, "Security Access Database"
Me.Delete_Reason.SetFocus...