¿Cómo programar el número de rosa de cuatro hojas en VB?

Subcomando privado1_Click()

Me.Cls

Atenuar s como único, j como largo, t como cadena, n como largo, m como largo

Para j = 1000 a 9999

t = j

m = 0

Para k = 1 a 4

n = Val(Mid(t, k, 1))

m = m n * n * n * n

Siguiente

Si m = j Entonces

Imprimir j; "es el número de rosas"

s = s j

Fin

Siguiente

Imprimir "La suma es:"; s

End Sub