Dato funktion

Denne funktion undersøger om værdien (str) er et helt tal:

Function isHeltal(str)
    Dim regex
    Set regex = New RegExp
    regex.Pattern = "^[0-9]+$"
    isHeltal = regex.Test(str)
End Function

Er der nogen der har en funktion eller kan lave en der checker om en dato er af rigtig format. Den skal være af følgende format og ikke andre:
dd-MM-yyyy