This example adds a recipient to the routing slip attached to Sales.doc and then displays the name of the first recipient.
If Documents("Sales.doc").HasRoutingSlip = True Then
Documents("Sales.doc").RoutingSlip.AddRecipient _
Recipient:="Aaron Con"
MsgBox Documents("Sales.doc").RoutingSlip.Recipients(1)
End If