Finding Prime number (VB6/VBA

Dim x As Integer
x = Val(InputBox("Enter Number"))
If x < 2 Then
MsgBox x & " Is Not Prime"
Else
If x = 2 Then 'because 2 Is the only even prime number
MsgBox x & " Is prime"
Else
Dim prime As Boolean
Dim t As Integer
t = Round(x / 2) 'because there is no integer number can divided without remains lager than it's half
prime = True
While prime And t > 1
If (x Mod t) = 0 Then
prime = False
End If
t = t - 1

Wend
If prime = True Then
MsgBox x & " Is prime"
Else
MsgBox x & " Is Not Prime"
End If
End If

End If
End