How to change Date Picker content control format based on date comparison

[macropod]

That's pretty basic -

With .SelectContentControlsByTitle("Recognised Organisation")(1)
  If .Range.Text = .PlaceholderText Then
    MsgBox "Dumbkopf! You need a Recognised Organisation", vbExclamation
    Exit Sub
  End If
End With

(or words to that effect)...