Imports System

Public Module Module1
    Public Sub Main()

        Dim i as Integer = 1
        Dim j as Integer = 1

        Do Until i > 3
            Do Until j > 3
                Console.Writeline("Combine Callback: VermillionLiquid || Liquid_" & i & " and sulfur_" & j & " created!")
            j += 1
            Loop
        j = 1
        i += 1
        Loop
    End Sub
End Module