Q: Checking for multiple numbers

Vidar Lervaag; vlervaag@online.no wrote: 
I have 5 numbers. How can I find out if there is 
2+2 equal numbers in VB 5.0? 
I.e.        4, 4, 7, 2, 2    =    (4 & 2)
       or 12, 8, 8, 7, 12 =    (12 & 8)

A: Try this one
Private Sub Command1_Click()
    Dim aNumbers() As Integer
    Dim aN() As Integer
    Dim y As Integer
    Dim x As Integer
    Dim z As Integer
        
    z = 10
    ReDim aN(z)
    aN(0) = 1
    aN(1) = 2
    aN(2) = 1
    aN(3) = 2
    aN(4) = 3
    aN(5) = 1
    aN(6) = 2
    aN(7) = 1
    aN(8) = 4
    aN(9) = 3
        
    'fill array
    ReDim aNumbers(1, 100)
    For y = 0 To 100
        aNumbers(0, y) = y
        aNumbers(1, y) = 0
    Next y
    
    'check numbers against array
    For y = 0 To z
        For x = 0 To 100
            If aNumbers(0, x) = aN(y) Then
                aNumbers(1, x) = aNumbers(1, x) + 1
                Exit For
            End If
        Next x
    Next y
    
    'show all numbers that have multiple instance
    For y = 0 To 100
        If aNumbers(1, y) > 1 Then
            MsgBox CStr(aNumbers(0, y)) & " " & CStr(aNumbers(1, y))
        End If
    Next y
            
End Sub

Return