Unnamed

        Dim intTal, intTal2, intLika, intDub As Integer
        intTal = InputBox("Skriv in ett tal. Avsluta med 0")

        If intTal = intLika Then
            intDub = intDub + 1
        End If
        Do Until intTal = 0
            intTal = InputBox("Skriv in ett till tal. Avsluta med 0")

            If intTal = intLika Then
                intDub = intDub + 1
            End If
        Loop
        MsgBox("Antal dubbletter är: " & intDub)