怎么解决VB程序溢出

Private Function isprime(a As Integer) As Boolean
Dim flag As Boolean
flag = True
b% = 2
Do While b% <= Int(a / 2) And flag
If Int(a / b%) = a / b% Then
flag = False
Else
b% = b% + 1
End If
Loop
ispeime = flag
End Function
Private Sub C1_Click()
Dim i As Integer
i = 2500
Do While isprime(i) = False
i = i - 1
Loop
Text1.Text = i
End Sub
这是一个求2500中最大素数的题 存在溢出问题，请帮解决

内存溢出怎么解决 内存溢出是什么意思，怎么解决 vb溢出！！！ 如何解决这个程序的溢出问题 电脑总报缓冲区溢出怎么解决 请问内存溢出是什么意思怎么解决 三星打印机内存溢出怎么解决啊? 内存溢出是什么毛病?怎么解决? 求高手解决 道缓冲溢出程序问题 VB数据溢出