Type Info:
Restype As String
Dim TU As TransUnit Dim Restype As String Set TU = Application.ActiveTransUnit Restype = TU.Restype