Найдите все пары чисел-близнецов из отрезка - VB

Формулировка задачи:

Собственно помогите решить задачку, есть наброски на работают не совсем так, как надо. Два простых числа называются близнецами, если они отличаются друг от друга на 2 (таковы, например, числа 41 и 43). Найдите все пары чисел-близнецов из отрезка [n,2n], где n - заданное натуральное число, большее двух, с помощью функции распознавания простых чисел. Приведём несколько примеров чисел-близнецов: (5,7), (11,13), (17,19), (22271,22273).

Option explicit
dim n,m,f,t
t=CBool(m)
function bli(n)
for m=n to 2*n step 1
      t=false
    for f=2 to m-1 step 1
          if m mod f = 0 then 
                                  t=true
          end if 
    next
       if t=false then 
            msgbox "Близнецы" & VbCrLf & m 
            bli=n
       end if
next
end function
n=inputbox ("введите n")
call bli (n)

п.с поиск не помог :С

Решение задачи: «Найдите все пары чисел-близнецов из отрезка»

textual
                            Листинг программы 
                        

                            Function Sample(value)
    Sample="Простое"
    For i=2 To value-1
        If value Mod i =0 Then
            Sample="Составное"
            Exit Function
        End If
    Next
End Function
 
n=InputBox("Введите число больше 2")
For j=n To 2*n
    If Sample(j)="Простое" And Sample(j+2)="Простое" Then
        MsgBox  "Числа " & j & " и " & j+2 & " близнецы"
    End If
Next
                        