Visual Basic - Matriz

Hola buen dia necesito ayuda tengo un arreglo de numeros los cuales los quiero formar parejas ejemplo

tengo estos numeros
1
2
3
y los quiero poner en parejas
(1,2)
(2,3)
como lo puedo hacer si me pueden ayudar muchisimos gracias sino tambien

Prueba esto
Private Type PuntoXY
X As Single
Y As Single
End Type
Dim Puntos(1 To 2) As PuntoXY

Private Sub Form_Load()
Dim Arr() As Single
For i = 1 To 2
Puntos(i).X = i
Puntos(i).Y = i + 1
Next
End Sub

Suerte

Te puedo ayudar, pero debes decidir si usaras combinaciones o permutaciones, los ejemplos son los siguientes:

En las combinaciones no importa el orden , es decir, los elementos 1,2 es lo mismo que 2,1 y esto se aplica en los juegos de azar como el loto.

Dim J as integer
Dim I as integer
Dim X as integer

Private Sub Form_Load()
X=cantidad_registros

For J = 1 To X-1
For I = J+1 To X
Debug.Print J , I '' lo veras en la ventana inmediato
Next I
Next J
End Sub

En las permutaciones si importa el orden , es decir, los elementos 1,2 no es igual que 2,1 y esto se aplica por ejemplo en las carreras de caballo, el caballo 1 y 2 llegan en posiciones distintas que si llegaran en 2 y 1 (que logico, jajaja)

Dim J as integer
Dim I as integer
Dim X as integer

Private Sub Form_Load()
X=cantidad_registros

For J = 1 To X-1
For I = J+1 To X
Debug.Print J , I '' lo veras en la ventana inmediato
Debug.Print I , J '' lo veras en la ventana inmediato
Next I
Next J
End Sub

Espero te sirva y me mandes un correo para saludar al menos, asi sabre que te sirvio