如何用VB创建”素数“

我对VB刚入门，很多都不懂，现在有一个问题请教各位大虾：（急啊！）
   创建一个”素数“确定某数是否为素数（取整数）
如：输入12/5，点击确定，该数为2
   输入9/2点击确定，该数为4

不管怎样先谢谢了！ --------------------编程问答-------------------- 网上有算法，找找吧 --------------------编程问答-------------------- 说些什么呀？没看懂！
--------------------编程问答-------------------- '******************** 这部份你自己写吧, 点击确定 你弄个Command2_Click即可
只要用 int(12/5) 得2
int(9/2) 得4
'******************************************


'大于1，并且除1和它本身外没有其他因数的自然数叫素数(或质数)
'一个自然数是素数,2是最小的素数，除2以外,所有的偶数都不是素数.
'如它的各位数字任意调换后仍为素数，则称为绝对素数
'只要使用2到该数的平方根之间的所有数去除这个数，就可以判断其是否素数

Dim i&, j&, ss As Boolean
Private Sub Command1_Click()
   MsgBox IIf(Chkss(Val(Text1.Text)), "不是素数", "是素数")
End Sub

Function Chkss(ChkVal&) As Boolean
   j = Int(Sqr(ChkVal))
   ss = False
   For i = 2 To j
      If ChkVal Mod i = 0 Then ss = True: Exit For
   Next i
   Chkss = ss
End Function

--------------------编程问答-------------------- 上面代码 你要添加 Command1  Text1

补充：VB ,  基础类