textbox soll merken dass mehrere einträge vorhande

Sub Finden()
Dim wks As Worksheet
Dim rngSuche As Range, varFind As Variant, rngGefunden As Range, strAdresse As String
Dim iZeile As Integer, strBoxText As String, strBoxText1 As String, strBoxText2 As String
Dim strBoxText3 As String, strBoxText4 As String, strBoxText5 As String
Dim strBoxText6 As String, strBoxText7 As String, strBoxText8 As String
Dim strBoxText9 As String, strBoxText10 As String, strBoxText11 As String
Set wks = Worksheets("Tabelle3") 'Tabelle mit den Daten
Set rngSuche = wks.Range("b2:c65536") 'zu durchsuchender Bereich
Do
varFind = InputBox("Bitte Suchbegriff eingeben:")
If varFind = "" Then Exit Do
'Text Teil-String-Suche, Findet Zellen, die den gesuchten String enthalten
Set rngGefunden = rngSuche.Find(What:=varFind, LookAt:=xlPart, LookIn:=xlValues)
If rngGefunden Is Nothing Then
MsgBox "Nichts gefunden!"
Else
strAdresse = rngGefunden.Address
Do
iZeile = iZeile + 1
With wks
strBoxText = .Cells(rngGefunden.Row, "b")  'Nachname
strBoxText1 = .Cells(rngGefunden.Row, "c") 'Vorname
strBoxText2 = .Cells(rngGefunden.Row, "d") 'PostLeitZahl
strBoxText3 = .Cells(rngGefunden.Row, "e") 'Stadt
strBoxText4 = .Cells(rngGefunden.Row, "f") 'Strasse
strBoxText5 = .Cells(rngGefunden.Row, "g") 'Hausnummer
strBoxText6 = .Cells(rngGefunden.Row, "h") 'Geburtstag
strBoxText7 = .Cells(rngGefunden.Row, "i") 'Geburtsjahr
strBoxText8 = .Cells(rngGefunden.Row, "j") 'Telefon
strBoxText9 = .Cells(rngGefunden.Row, "k") 'Handy
strBoxText10 = .Cells(rngGefunden.Row, "l") 'TelefonFirma
strBoxText11 = .Cells(rngGefunden.Row, "m") 'E-Mail
End With
Set rngGefunden = rngSuche.FindNext(rngGefunden)
Loop Until rngGefunden Is Nothing Or rngGefunden.Address = strAdresse
AdressenSuchen.txtNachname = strBoxText
AdressenSuchen.txtVorname = strBoxText1
AdressenSuchen.txtPLZ = strBoxText2
AdressenSuchen.txtStadt = strBoxText3
AdressenSuchen.txtStrasse = strBoxText4
AdressenSuchen.txtHausnummer = strBoxText5
AdressenSuchen.txtGeburtstag = strBoxText6
AdressenSuchen.txtGebjahr = strBoxText7
AdressenSuchen.txtTelefon = strBoxText8
AdressenSuchen.txtHandy = strBoxText9
AdressenSuchen.txtTelFirma = strBoxText10
AdressenSuchen.txtEMail = strBoxText11
End If
Loop
End Sub