输入一个正整数,找出大于该数的最小素数

k = Val(InputBox("Input Integer:")) + 1
Do While True
tmp = Sqr(k)
For i = 2 To tmp
If k Mod i = 0 Then
Exit For
End If
Next
If i > tmp Then
Print "Prime is " & CStr(k)
Exit Do
Else
k = k + 1
End If
Loop