VBA: hvorfor kommer errorHandleren frem, hvis informationen er tastet korrekt. Har bruge for en hurtig hjælp.

Her skal jeg lave en søgefunktion.

Alt kører uden problemer, dog når jeg taster noget rigtig, så kommer messageboksen frem med de korrekte info og derefter kommer errorHandleren frem og det skal ikke den gøre, da informationen er korrekt tastet.

Hvordan kan jeg fortælle til VBA at den skal ikke komme, når informationen er tastet korrekt.



Sub findInformation()

   
 

    Dim age As Double
    Dim surname As String
    Dim kendteInfo As Double 
    Dim antalPer As Double
    Dim info1 As Double
    Dim info2 As String
   
    age = InputBox("Write an age")
    antalPer = Worksheets("Hjem").Range("A1").End(xlDown).Row


    If (IsNumeric(age)) Then
        surname = age
    Else
        surname = 1
    End If
   
    For kendteInfo = 2 To antalPer
        info1 = Worksheets("Hjem").Cells(kendteInfo, 1).Value
        info2 = Worksheets("Hjem").Cells(kendteInfo, 2).Value
       
        If (info1 = age Or infoNavn = surname) Then
        MsgBox "Her er infor i systemmet!" & vbCrLf & "Age: " & info1 & vbCrLf & "Surname: " & infoNavn, vbOKOnly + vbInformation
        ElseIf (info1 = age Or info2 = surname) Then
       
        If (info1 = age) Then
        On Error GoTo errorhandler
        End If
       
        End If
   
    Exit For
   
    Next
   

errorhandler:
        MsgBox "Har ikke fundet info!", vbOKOnly + vbInformation
       
   
Exit Sub

End Sub