Formula for an Address

I'm trying to modify a formula that displays fields of address1 and address2 while adding the city, state and zip.

Currently the formula looks like this:

dim Addr1 as string

dim Addr2 as string

dim City as string

dim State as string

dim Zip as string

dim FullAddress as string

Addr1 = {rpt_AddressDetail.Addr1}

Addr2 = {rpt_AddressDetail.Addr2}

FullAddress = Addr1

if Addr2 <> "" then FullAddress = FullAddress & Addr2 & chr(13)

formula = FullAddress

I tried modifying Addr1 to be:

Addr1 = ({rpt_AddressDetail.Addr1} + ChrW(13) + {rpt_AddressDetail.City} + ChrW(13) + {rpt_AddressDetail.State} + ChrW(13) + {rpt_AddressDetail.Zip})

But that is not displaying the City/State/Zip in the report.

Suggestions?