Escriba un programa en VB para encontrar todos los números primos gemelos entre 1 y 100. Se requiere incluir un procedimiento de función PRIME para determinar números primos ¿Cómo programarlo?

'Aquí hay una función para determinar si un número es primo\x0d\Private Function IsPrime(n As Integer) As Boolean\x0d\Dim i As Integer\x0d\IsPrime = True\x0d\For i = 2 To CInt(Sqr(n))\x0d\If (n Mod i = 0) Then\x0d\ IsPrime = False\x0d\End If\x0d\Next\x0d\If n = 0 Or n = 1 Then\ x0d \IsPrime = False\x0d\End If\x0d\End Function\x0d\\x0d\'Aquí está la función de control principal\x0d\\x0d\Private Sub Command1_Click()\x0d\Dim i As Integer\x0d\For i = 1 a 98\x0d\ Si IsPrime(i) And IsPrime(i+2) Entonces\x0d\ Print i & "," & i+2 & "es un par de números primos gemelos"\x0d\ End If\ x0d\Siguiente i \x0d\End Sub