Tal y como te dijeron, en
VB 6.0 seria mediante el metodo
Raise del objeto
Err:
Código:
Public Function getDate(dia, mes, anho) as String Dim dt as Date
On Error GoTo ErrDate
'La siguiente linea me podria generar un error en una fecha no valida como "29/02/2006"
dt = CDate(dia & "/" & mes & "/" & anho)
getDate = dt
Exit Function
ErrDate:Call Err.Raise(vbObjectError + 1000, , "Fecha no valida")
End Function
Salu2...