Hej!

Jag skriver ett lite program där jag har en funktion som kollar om det finns inmatade dagsvärden för gångtider på en pump. Finns det redan inmatade värden för dagen ska dessa ersättas med nya. Jag har en messagebox med Ja/Nej som dyker upp om man vill ersätta värdena. Trycker man ja ersätts värdena, men trycker man "nej" dyker rutan upp igen och man måste trycka "nej" en andra gång för att den ska försvinna. Hur får jag rutan att bara dyka upp en gång när jag trycker "nej"? 

Här är min kod:

Private Function ErsattaBefintligtVarde(pumpNamn As String, ByVal i As Integer) As Integer

    If Worksheets(pumpNamn).Cells(i - 1, 1) = Date Then

        If MsgBox("Vill ersätta befintliga värden?", vbCritical + vbYesNo + vbDefaultButton2, "OBSERVERA!") = vbYes Then

            ErsattaBefintligtVarde = 1 

        Else

            ErsattaBefintligtVarde = 2           

        End if

    End If

End Function