Imports System, Microsoft.VisualBasic

Public Module Module1

    Public Sub Main()

        Randomize()

        Dim die1, die2, total, count as integer

        Do

            die1 = int(Rnd() * 6 + 1)

            die2 = int(Rnd() * 6 + 1)

            total = die1 + die2

            count += 1

            Console.WriteLine(total)

        Loop until total = 11

        Console.WriteLine("Total # of rolls: " & count)

    End Sub

End Module