Function CercaUsc(aa, bb)
Dim d2, d3, n, x
n = Array(0, 5, 32, 24, 15, 16, 19, 33, 4, 1, 21, 20, 2, 14, 25, 31, 17, 9, 34, 22, 6, 18, 27, 29, 13, 7, 36, 28, 11, 12, 30, 35, 8, 3, 23, 26, 10, 0)
For x = 0 To 36
d2 = n(x)
d3 = n(x + 1)
If d2 = aa And d3 = bb Then CercaUsc = n(x + 2): Exit For Else CercaUsc = "Non Trovato"
Next x
End Function