Sub example()
Dim strAddress As String
Dim strName As String
Dim strBusiness As String
Dim strStreet As String
Dim strSuburb As String
Dim strState As String
Dim strPostCode As String
    strName = "Mr/Mrs Contact Name"
    strBusiness = ""        '"Business Name"
    strStreet = "Street Address"
    strSuburb = "Suburb"
    strState = "State"
    strPostCode = "Postcode"

    strAddress = strName & vbCr
    If Not strBusiness = "" Then strAddress = strAddress & strBusiness & vbCr
    strAddress = strAddress & strStreet & vbCr
    strAddress = strAddress & strSuburb & Chr(32) & _
                 strState & Chr(32) & strPostCode
    FillBM "bkAddress", strAddress
End Sub

Public Sub FillBM(strBMName As String, strValue As String)
Dim orng As Range
    With ActiveDocument
        On Error GoTo lbl_Exit
        Set orng = .Bookmarks(strBMName).Range
        orng.Text = strValue
        orng.Bookmarks.Add strBMName
    End With
lbl_Exit:
    Exit Sub
End Sub