Untitled

        Dim intDatorTal, intGissning, intAntal, RandomNumber As Integer
        Dim strScore, strNamn, strGissning As String

        'Slumpgenerator
        Randomize()
        intDatorTal = 100 * Rnd() + 1
        intGissning = InputBox("Skriv din gissning! Endast tal mellan 1-100" & vbCrLf & _
        "Bokstäver kommer resultera i värde 0!")

        'Gör medans svaret skiljer sig från intDatorTal
        Do While intGissning <> intDatorTal
            If intGissning Then
                intAntal = intAntal + 1
            End If
            If intGissning = 0 Then
                MsgBox("Du måste gissa på ett tal mellan 1-100.")
            End If
            If intGissning < intDatorTal Then
                intGissning = InputBox("Tyvärr, din gissning " & intGissning & " var för låg. " & _
                "Försök igen!" & vbCrLf & _
                "Bokstäver kommer resultera i värde 0!")
            ElseIf intGissning > intDatorTal Then
                intGissning = InputBox("Tyvärr, din gissning " & intGissning & " var för hög. " & _
                "Försök igen!" & vbCrLf & _
                "Bokstäver kommer resultera i värde 0!")
            End If
        Loop

        'Lägger till sista gisningen i intAntal
        If intGissning Then
            intAntal = intAntal + 1
        End If

        'Grattis sucker
        MsgBox("Grattis!!! Din gissning " & intGissning & " var alldeles rätt! Och på bara " & _
        intAntal & " gissningar. Duktigt")