Dim input, inputCheck, intDub1, intDub As Integer
        intDub = 1
        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
                intDub1 = intDub
            Else
                inputCheck = input

                intDub = 1
            End If

            If input = 0 Then
                intDub = intDub1
            End If



        Loop


        MsgBox("Antal dubbletter är: " & intDub)