Finding Prime number (VB.Net)

Dim x As Integer

x = Val(InputBox("Enter Number"))

If x < style="color: blue;">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 = Math.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

End While

If prime = True Then

MsgBox(x & " Is prime")

Else

MsgBox(x & " Is Not Prime")

End If

End If

End If