Module Module1

    Sub Main()
start:
        Console.WriteLine("Skriv in det ord du vill använda och tryck på Enter!")
        Dim ord As String = Console.ReadLine()
        ord = ord.ToLower
        Dim Bokstäver() As Char = ord.ToCharArray
        Console.WriteLine("Ditt ord är " & Bokstäver.Length & " bokstäver långt! Börja gissa!")
        Dim chanser As Integer = 5
        Dim x As Integer = 0
        Do While x <= Bokstäver.Length - 1
            If Console.ReadLine.ToLower = Bokstäver(x) Then
                Console.WriteLine("Rätt gissat! Det är nu " & (Bokstäver.Length - 1) - x & " bokstäver kvar att gissa, och du har " & chanser & " gissningar kvar!")
                x += 1
            Else
                If chanser = 0 Then
                    Console.WriteLine("Du förlorade tyvärr.. Bättre lycka nästa gång")
                End If
                Console.WriteLine("Du gissade tyvärr fel! Nu har du bara " & chanser & " kvar innan spelet tar slut")
                chanser -= 1
            End If
        Loop
        If chanser > 0 Then
            Console.WriteLine("Du vann! Bra gjort")
        End If
        Console.ReadLine()
        GoTo start
    End Sub
End Module