Dim intTal, intTal2, intLika, intDub As Integer
        intTal = InputBox("Skriv in ett tal. Avsluta med 0")
        intLika = intTal
        If intTal = intLika Then
            intDub = intDub + 1
        End If
        Do Until intTal = 0
            intTal = InputBox("Skriv in ett till tal. Avsluta med 0")
            intLika = intTal
            If intTal = intLika Then
                intDub = intDub + 1
            End If
        Loop
        MsgBox("Antal dubbletter är: " & intDub)