Hier mal mein etwas verbessertes Listing. Es bleibt nur noch ein Problem, er möchte keine MsgBox mittem im Listing starten, ich kann nur ganz oben eine MsgBox einfügen. MsgBox("Hallo")

Private Sub cmdSuchen_Click()
'ErrorHandler
    On Error GoTo Mldg
'Deklaration
    Dim strSQL As String
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim strInput As String
    Dim intI As Integer
    Dim intWahl As Integer
    Dim intAnz As Integer
    Dim strTxt1 As String
    Dim strTxt2 As String
    Dim strMsg As String
'InputBox mit Schleife
InputBoxSprungmarke:
    strInput = InputBox("Geben Sie mit einen Sternchen * eingefassten" & vbCr & _
    "Suchbegriff ein.", "Suche mit Jokern", , 8000, 8000)
'Fehler Abfangroutine 1
    If strInput = "" Then Exit Sub
'Verweise
    Set db = CurrentDb()
    strSQL = "SELECT * FROM tblMieter WHERE Bemerkung Like '" & strInput & "'"
    Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)
'Fehler Abfangroutine 2
    If rs.RecordCount = 0 Then
       intWahl = MsgBox("Ihr Suchkriterium wurde nicht gefunden.", vbRetryCancel, "Microsoft Access")
    End If
    If intWahl = vbRetry Then
        GoTo InputBoxSprungmarke
    Else
        SendKeys ("{esc}")
    End If
'Datensätze durchzählen
    rs.MoveLast
        intAnz = rs.RecordCount
    rs.MoveFirst
'Plural und Singular
    If intAnz = 1 Then
        strTxt1 = "Folgender Gast mit: " & strInput & " wurde gefunden :" & vbCr & vbCr
    Else
        strTxt2 = "Folgende " & intAnz & " Gäste mit: " & strInput & " wurden gefunden :" & vbCr & vbCr
    End If
'Schleife
    For intI = 1 To intAnz
        strMsg = strMsg & "Name: " & rs("Vorname") & " " & rs("Name") & "," & " in " & rs("Ort") & " " & " TelNr: " & rs("TelNr") & vbCr
        rs.MoveNext
        Next
        rs.Close
    Exit Sub
'ErrorHandler Sprungmarkierung
Mldg:
    MsgBox "Fehlermeldung: " & Err.Description & vbCr & vbCr & _
    "Fehlernummer: " & Err.Number
End Sub