Dialogboks i exel

hej Jeg har en vbakode der trækker data fra acces over til exel. Kundenr indtastes via en dialogboks..men når der tastes ingenting i den eller der trykkes på cancel får jeg en fejlmelding. Hvis der tastes ingenting skal den sige at kundenr ikke eksisterer..ved cancel skal den jo bare forsvinde.  jeg vedlægger programmet
Sub Kunde()
Kundenr = InputBox("indtast kundenr")
    Dim objConn As ADODB.Connection
    Dim objRs As ADODB.Recordset
    Dim strConnString As String
    Dim strSQL As String
 
    Set objConn = New ADODB.Connection
    Set objRs = New ADODB.Recordset
   
    strConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\dokumenter\kartoteker.MDb"
    objConn.Open strConnString
   
    strSQL = "SELECT Kundenr,Navn1, Adresse, postby FROM kundekartotek WHERE Kundenr = " & Kundenr
    objRs.Open strSQL, objConn
       
    If Not objRs.EOF Then
       
        Range("A3") = objRs("Kundenr")
        Range("a4") = objRs("Navn1")
        Range("a5") = objRs("Adresse")
        Range("a6") = objRs("postby")


objRs.Close
    objConn.Close
 
Else
    MsgBox "Kundenr. findes ikke"
   

    End


End If
 
End Sub