Imports System.Console

Public Module Module1

    Public Sub Main()

        Dim TotalProfit As Integer = 0

        WriteLine("Is the shop still opening?")

    End Sub

End Module