Error de sintaxis

Es posible tener dos Sub anidados?

Tengo lo siguiente y me da el siguiente error:


Error de compilación de Microsoft VBScript error '800a03ea'

Error de sintaxis


Sub HIJOS (PADRE,ByVal NIVEL)
^
Linea 1 Sub M_MAPA_WEB_Gen_01 ()

Linea 5 Sub HIJOS (PADRE,ByVal NIVEL)

End Sub

..

Aqui hago mis sql

y hago llamadas a Hijos(X,X)

End Sub