Code VBA pour chiffres sujet

Bonjour,

J'ai code VBA qui marche super bien :

Private Sub CommandButton1_Click()

Dim Dat As String
Dat = InputBox("Enter une date pour voir si réservation")
If IsDate(Dat) Then
Var = CDate(Dat)
c = Application.Match(CDate(Dat) * 1, [A:A], 0)
If IsNumeric(c) Then
Cells(c, 1).Select
Cells(c, 1).Interior.ColorIndex = 8
End If
End If

End Sub
-----------------------------------------------

Comment faire pour changer valeur date en chiffre.

De cette manière, je saisis un chiffre ou nombre dans Inputbox

Merci,
Bon week-end