They work fine here eg

Public Sub InsertNameFromOutlook()
Dim strCode As String
Dim strAddress As String

'*********************
'Set up the formatting codes in strCode
strCode = "<PR_POSTAL_CODE>"
'*********************

'Let the user choose the name in Outlook
strAddress = Application.GetAddress("", strCode, _
False, 1, , , True, True)
'Insert the name at the current insertion point
If ActiveDocument.ProtectionType <> wdNoProtection Then
   bProtected = True
   ActiveDocument.Unprotect
   ActiveDocument.FormFields("NameOfFormfield").Result = _
   strAddress
Else
   Selection.TypeText strAddress
End If
End Sub