Найти цифры близнецы в одномерном массиве

Private Sub CommandButton1_Click()
Dim A(1 To 10) As Integer
Dim X As Integer
Dim B As String
Dim G As Integer
Dim J As Integer
X = Val(TextBox1)
B = TextBox2
Randomize
For I = 1 To 10
A(I) = Fix(Rnd * 10)
B = B & A(I) & "  "
Next I
TextBox2 = B
For G = 1 To N
For J = 1 To N
X = 2
If A(G) - A(J) = X Then X = X + 1
Next J
Next G
TextBox1 = X
End Sub

Option Explicit
 
Private Sub Command1_Click()
Dim A() As Integer
Dim i As Integer, j As Integer, n As Integer, x As Integer
Text1.Text = "": Text2.Text = ""
x = 2: n = 10: ReDim A(1 To n)
Randomize
 
For i = 1 To n
    A(i) = Fix(Rnd * 10)
    Text1.Text = Text1.Text & Str(A(i)) & "  "
Next i
 
For i = 1 To n
    For j = 1 To n
        If (A(i) - A(j)) = x Then Text2.Text = Text2.Text & _
         Str(A(i)) & " " & A(j) & "   "
    Next j
Next i
 
End Sub

Randomize
List1.Clear
Dim a(), n As Integer ' массив чисел и их количество
ReDim a(1 To 10)
For i = 1 To 10
 a(i) = Int(17 * Rnd(1)) ' заполнение массива чисел
 List1.AddItem a(i)
Next i
For i = 1 To 9
For j = i + 1 To 10
 If Abs(a(i) - a(j)) = 2 Then ' проверка чисел на близнецы, подсчет их количества
 n = n + 2
 z = a(i) & " " & a(j) 'вывод чисел близнецов
 List1.AddItem z 
 End If
Next j
Next i
MsgBox n

Private Sub Command1_Click()
Dim A() As Integer
Dim i As Integer, j As Integer, n As Integer, x As Integer, k As Integer
Cls
k = 0: x = 2: n = 10: ReDim A(1 To n)
Randomize
 
For i = 1 To n
    A(i) = Fix(Rnd * 10)
   Print Str(A(i)) & "  ";
Next i
 
 Print
 
For i = 1 To n
    For j = 1 To n
        If (A(i) - A(j)) = x Then
           Print Str(A(i)) & "-" & A(j)
            k = k + 1
        End If
    Next j
Next i
Print "Число близнецов = " & k
 
End Sub