IswApp.IActiveDoc2
Dim sFileTitle as String = IswApp.GetTitle
Dim PartNu = Microsoft.VisualBasic.Left(sFileTitle, 10)
Dim sFileTitleLen as Integer = sFileTitle.Length - 10
Dim Description = Microsoft.VisualBasic.Right(sFileTitle, sFileTitleLen)
Something along those lines, then set them...