geburtstag - nochmal frage zum makro

hallo forum
habe folgendes makro im forum gefunden und ein bißchen durch ausprobieren umgmodelt.aber
habe jetzt folgendes problem habe zwei geburtstage an einem tag ,aber das makro zeigt mir
immer nur einen an . geht das überhaubt damit das er mir alle geburtstage in einer msgbox anzeigt ?
wenn ja - wie ?

Sub Suchen()
On Error GoTo Fail
Dim x As Date
Dim sTxT As String
Dim TxT As String
x = Format(Date, "DD/MM")
sTxT = Worksheets("Tabelle1").Cells.Find(What:=x).Offset(0, -5) + " " + Cells.Find(What:=x). _
Offset(0, -4)
TxT = sTxT & " hat Geburtstag !!! "
end sub
MsgBox TxT
Fail:
End Sub