Lanzar error desde sub en una clase

[onlykfk]

Saludos estimados maestros de la programacion, esta vez le escribo por que resulta que ahora estoy dandole a Visual basic 6.0 y estoy realizando unas clases con metodos, pero, resulta que kiero ke un metodo si detecta un error interno, lo lance a kien manda ejecutar el procedimiento y dentro del mismo.
En java he realizado algo asi como esto:

Código:

 
class miclase {
 public void mimetodo(p1,p2) throws IOException {
  try {
    ...
  } catch(IOException io) {
    ...
  } finally {
    ...
  }
 }
} 

en Visual Basic pretendo lo siguiente:

Mi Clase:

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:
 'Aki es donde kiero lanzar el error a kien hizo la llamada y manejarlo fuera, sin embargo no se como hacerlo
 Exit Function
End Function 

La llamada

Código:

Dim obj as new MiClase
On Error ResumeNext
X = obj.getDate(25,10,1982)
If Err <> 0 Then MsgBox Err.Description 'Que seria mi propio objeto error.
End 

¿Alguien podria ayudarme con este topico por favor?


Saludos