This example protects the active document (only allows comments) and then routes it.
ActiveDocument.HasRoutingSlip = True
With ActiveDocument.RoutingSlip
.Subject = "Status Doc"
.Protect = wdAllowOnlyComments
.AddRecipient Recipient:="Kim Johnson"
End With
ActiveDocument.Route