Visual Basic - ayudaaa con este pequeño programa

holaaa gracias por la ayuda, bueno les digo q me vuelvo loco con este programaaaa q es tan sencillo, se trata de ver si un numero es primo o compuesto, pero al ingresar el numero se cuelga mi visual, mm creo q no hay errores nos e q mas ahcer, este es el codigo:
Dim n, c, b, d As Integer

Private Sub Command1_Click()
b = 1
c = 1
d = 0

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
While n >= c
If n Mod c = 0 Then
d = d + 1
c = c + 1
Else
c = c + 1
End If
Wend
If d <= 2 Then
MsgBox ("El número es Primo")
Else
MsgBox ("El número es Compuesto")
End If

End Sub

PORFAVOR AYUDA si pueden dejar su mail si no es mucha molestia recien empiezo con esto y es muy importante, GRACIAS.

loco lo miro y te contesto ,no te enloquezcas que estas cosas pasan,por lo que pude ver de apuro las variables estan mal definidas, saludos.