¿Cómo escribir el código del número de narciso en lenguaje vb?

Este es el código para imprimir todos los números de narciso de tres dígitos:

Subcomando privado1_Click()

Para a = 1 a 9

Para b = 0 a 9

Para c = 0 a 9

Si a * 100 b * 10 c = a^3 b^3 c^3 Entonces

imprimir a * 100 b * 10 c

Finalizar si

Siguiente

Siguiente

Siguiente

Fin del subtítulo