Type Info:
Note As String
Dim TU As TransUnit Dim Note As String Set TU = Application.ActiveTransUnit TU.Note = "Note text." Note = TU.Note