Imports System

Public Module Module1

    Public Sub Main()

        Dim attempt As Integer = 0

        Dim guess As String

        Do

            Console.WriteLine("What is the Capital city of Germany?")

            guess = console.ReadLine()

            attempt = attempt + 1

        Loop Until attempt = 3 Or guess = "Berlin"

        If guess.ToLower() = "Berlin" Then

            Console.WriteLine("Nice work, you got the answer correct!")

        Else

            Console.WriteLine("You ran out of attempts, get better at geography!")

        End if

    End Sub

End Module