Sub Item_Open()
Set objPage = Item.GetInspector.ModifiedFormPages("Adresblok")
Set objControl = objPage.Controls("TextBox1")
objControl.Value = [CompanyName] & Chr(13) & Chr(10) & [FullName] & Chr(13) & Chr(10) & [MailingAddress]
End Sub