Imports System

​

Public Module Module1

Public Sub Main()

Dim attempts as Integer

Dim guess as String

​

console.writeline("What is the capital city of Ghana?")

attempts = console.ReadLine()

​

console.writeline("Please enter your guess.")

attempts = console.ReadLine()

​

Do

attempts = attempts + 1

​

attempts = 0

guess = 3

​

​

Loop until guess = "Accra" or attempts = 3

​

​

If guess = "Accra" then

console.writeline("Well done")

Else

console.writeline("You are out of attempts and didn't get the answer right")

End If

​

Console.Read()