Fecha limite Passw Excel

Resolverme este dilema que no se como colocar la fecha de expiración del passw existente

'Aquí hay que configurar el usuario del PC

Private Sub COMPROBAR_USUARIO() 'Usuarios de PCs

Select Case USUARIO

Case "DIESEL10" 'otro PC

PASSW = "123"

'If Date < Fechalimite Then PASSW = "321" 'para fecha de caducidad del Passw

Case "W8-JOCA" 'otro PC

PASSW = "123"

'If Date < 31 / 07 / 2013 Then PASSW = "321" 'para fecha de caducidad del Passw

End Select

End Sub

A ver cual está mal porque ninguno de los 2 me funciona t si puede resolvérmelo