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