Counting number of times a combination appears in different rows

Option Explicit
Const OUTPUT_RANGE = "H1"
Dim combo(10, 10) As Long
Sub CountCombinations()
    Dim r As Range
    Set r = Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
    r.Select
    Dim i As Integer, j As Integer
    For i = 0 To 9
        Dim cell As Range
        For Each cell In r.Cells
            If InStr(cell.Value, i) > 0 Then
                For j = 0 To 9
                    If j <> i Then
                        If InStr(cell.Value, j) > 0 Then combo(i, j) = combo(i, j) + 1
                    End If
                Next j
            End If
        Next cell
    Next i
 
    DisplayResults_Abbreviated
 
End Sub
Sub DisplayResults()
    Dim i As Integer, j As Integer
    Dim iRow As Integer
    Columns(Left(OUTPUT_RANGE, 1)).Clear
 
    For i = 0 To 9
        For j = 0 To 9
            If i <> j Then
                Range(OUTPUT_RANGE).Offset(iRow).Value = i & " appears with " & j & " in " & combo(i, j) & " rows"
                iRow = iRow + 1
            End If
        Next j
        iRow = iRow + 1
    Next i
End Sub
Sub DisplayResults_Abbreviated()
    Dim i As Integer, j As Integer
    Dim iRow As Integer
    Columns(Left(OUTPUT_RANGE, 1)).Clear
 
    For i = 0 To 9
        For j = 0 To 9
            If i <> j Then
                If combo(i, j) <> 0 Then
                    Range(OUTPUT_RANGE).Offset(iRow).Value = i & " appears with " & j & " in " & combo(i, j) & " rows"
                    iRow = iRow + 1
                End If
            End If
        Next j
        iRow = iRow + 1
    Next i
End Sub