Найти n пар простых чисел - VB

REM
REM  Числа близнецы
REM
 
CLS
 
N = 500
    
FOR i = 6 TO N STEP 6
   p1 = i - 1: p2 = i + 1
   D1 = SQR(p1): D2 = SQR(p2)
        
   FOR d = 3 TO D1 STEP 2
      IF p1 MOD d = 0 THEN GOTO 100
   NEXT d
 
   FOR d = 3 TO D2 STEP 2
      IF p2 MOD d = 0 THEN GOTO 100
   NEXT d
 
   PRINT p1; p2
100
NEXT i