Dim aas As String = "0,1,2,3" Dim bbs As String = "1,2,3,10,11,12,13,20,21" For Each a As String In aas.Split(",") For Each b As String In bbs.Split(",") Dim left As Double = 60 - a*11 - b*9 Dim c As Double = left / (7+5+3+1) If CInt(c) = c Then output.show(a & "," & b & "," & c) End If Next Next