Visual Basic - porfavor revisen este programa

hola a todos, al hacer correr este programa se traba mi visual basic, no se donde esta el error, porfavor si alguien lo encuentra, el programa trata de definir si un numero entero positivo es feliz o infeliz. este es el codigo:
Dim n, d, s, b As Integer

Private Sub Command1_Click()
MsgBox ("Programa que define si un numero entero positivo es feliz o infeliz")
b = 1
While b = 1
n = InputBox("Ingrese un número entero positivo")
If n >= 0 Then
b = 0
Else
MsgBox ("Ese no es un número entero positivo")
End If
Wend
s = 0
While (n / 10) >= 1
While n Mod 10 >= 0
d = n Mod 10
s = s + (d ^ 2)
n = n / 10
Wend
n = s
s = 0
Wend
If n = 1 Then
MsgBox ("El número es Feliz")
Else
MsgBox ("El número es Infeliz")
End If

End Sub

GRACIAS POR SU AYUDA

revisa el segundo while, ahí tienes un bucle sin fin.

para comprobarlo, ejecuta el programa paso a paso