MsgBox wenn .FindRecord = False

Private Sub Document_Open()
Dim sSuch As String
Dim lDS As Long
Dim drucken As Integer
On Error GoTo ende
sSuch = InputBox("Welche Person suchen Sie", "Datensatz?")
If sSuch = "" Then GoTo ende
ActiveDocument.MailMerge.DataSource.ActiveRecord = wdFirstRecord
lDS = ActiveDocument.MailMerge.DataSource.FindRecord(FindText:=sSuch, Field:="Name")
lDS = ActiveDocument.MailMerge.DataSource.ActiveRecord
drucken = MsgBox("Wollen Sie den Gebührenbescheid für " & sSuch & " ausdrucken", vbYesNo, " _
Drucken?")
If drucken = vbYes Then
ActiveDocument.PrintOut Pages:=2
End If
ende:
End Sub