Function isprime(Num As Long) As Boolean
If Num < 2 Then isprime = False:Exit Function
Dim i As Long
For i = 2 To Sqr(Num)
If (Num Mod i) = 0 Then
isprime = False
Exit Function
End If
Next i
isprime = True
End Function
Private Sub Command1_Click()
Dim i As Long
i = 3
Do
If isprime(i) And isprime(i + 2) Then Print i,i + 2
i = i + 2
Loop Until i = 99
End Sub