Chequeo de fecha en VBA

Hola,
Estoy haciendo una pequeña macro para el cálculo de préstamos. Se ha de introducir una fecha en la celda B3.
Antes de nada quiero que la macro chequee que el usuario ha introducido una fecha válida, pero no me funciona lo siguiente:
Sub CalculadoraPrestamos()
If Not IsDate("B3") Then
MsgBox ("Fecha incorrecta. Inténtelo de nuevo"), vbCritical
Cancel = True
Exit Sub
End If
¿Qué estoy haciendo mal?
Muchas gracias,