That looks a lot simpler. If you are always adding the values as a new paragraph at the end of the document it could be even shorter
Code:
If Me.PNBox <> "Person Name" Then
ActiveDocument.Range.InsertAfter vbCr & Me.PNBox & ", " & Me.DABox & ", " & Me.TABox
End If