Funcion para validar Fechas , en Visual Basic (Visual estudio 2010)

La función toma un string y verifica si es una fecha , en caso positivo devuelve true, en casos negativos False .


Public Function Esfecha(Fecha As String)
        Dim cadena As Date
        If Fecha = "" Then
            Return False
        End If
        Try
            cadena = CDate(Fecha)
            If Not IsDate(cadena) Then
                Return False
            End If
        Catch ex As Exception
            Return False
        End Try

        Return True
    End Function