What's wrong with VBA code and please tell me the correction required?

[Yashraj Jadhao]

What's wrong with this code, whenever I input any number it always says not prime, I want it to tell whether its prime or not prime?

Sub Button1_Click()
Dim number As Long
Dim counter As Integer
Dim remainder As Integer
remainder = 0
remainder = Cells(3, 2)
number = Cells(2, 2)
Cells(2, 2) = InputBox("Insert positive integer")
Do While Cells(2, 2).Value < 0
MsgBox ("Your number was not a positive integer")
Cells(2, 2) = InputBox("Insert positive integer")

Loop
For counter = 1 To number / 2
Cells(3, 2) = number Mod counter
Cells(3, 2).Value = 0
Next counter

If remainder = 0 Then
MsgBox ("Your numberis not prime")
Else
MsgBox ("Your number is prime")
End If

 

[Zyndstoff]

Sub Button1_Click()
  Dim Prime As String, i As Integer, Number As Variant
  Prime = "Prime"
  Number = InputBox("Input any positive Integer:")
  If IsNumeric(Number) = False Then
    MsgBox "No Number!"
    Exit Sub
  End If
  If Number <> CInt(Number) Or Number < 0 Then
    MsgBox "No positive Integer!"
    Exit Sub
  End If
  For i = 2 To Number / 2
    If Number Mod i = 0 Then
      Prime = "no Prime"
      Exit For
    End If
  Next i
  MsgBox Number & " is " & Prime
End Sub