Dim input, inputCheck, intDub As Integer
        input = InputBox("Skriv in ett tal. Avsluta med 0")
        inputCheck = input

        Do Until input = 0
            input = InputBox("Skriv in ett till tal. Avsluta med 0")
            
            If input = inputCheck Then
                intDub = intDub + 1
            End If
        Loop
        MsgBox("Antal dubbletter är: " & intDub)