Visual Basic - ayuda programa emparejamiento

Hola amigos, me gustaria crear un programa en el q metiendo los nombres de determinados competidores los sortee para q qeden en parejas en modo de competicion por ejemplo meto a juan, roberto, miguel y omar y el resultado sea:
juan vs miguel
roberto vs omar

y asi sucesivamente, espero me puedan ayudar, saludos

Hice algo a ver si es lo que necesitabas ...

modificalo a tu necesidad !!!

Dim c As New Collection
Private Sub Command1_Click()

c.Add "Juan"
c.Add "Pedro"
c.Add "Jose"
c.Add "Manuel"
c.Add "Antonio"
c.Add "Ignacio"
c.Add "Tomas"
c.Add "Lucas"

Sortear (c.Count)
End Sub

Function Sortear(Numero As Long)

Dim Sorteo() As Integer
Dim n As Long, i As Long

ReDim Sorteo(Numero) As Integer

For i = LBound(Sorteo()) + 1 To UBound(Sorteo())
n = i
Do
n = n - 1

If Sorteo(i) = Sorteo(n) Then
Sorteo(i) = Int(((Numero + 1) * Rnd) + 0)
n = i
End If
Loop Until n = 0
Next

For i = LBound(Sorteo()) + 1 To UBound(Sorteo())
List1.AddItem c.Item(Sorteo(i))
Next
For i = LBound(Sorteo()) To UBound(Sorteo()) - 1 Step 2

List2.AddItem List1.List(i) & " vs " & List1.List(i + 1)

Next
End Function