Imports System.Console
Public Module Module1
Public Sub Main()
Dim TotalProfit As Integer = 0
WriteLine("Is the shop still opening?")
End Sub
End Module