Определить является ли введенное число простым - VB

DIM D AS LONG
DIM p AS LONG
DIM fl%, dm!
 
Private Sub cmdP_Click()
CLS
P = Val(txtP.Text)
fl = 0
 
IF p MOD 2 = 0 AND p <> 2 OR p = 1 THEN GOTO 100
IF p = 2 OR p = 3 THEN fl = -1: GOTO 100
 
dm = SQR(p) + .5
 
FOR D = 3 TO dm STEP 2
   IF p MOD D = 0 THEN 100
NEXT D
fl = -1
 
100
IF fl THEN PRINT "YES" ELSE PRINT "NO"
End Sub