Вы должны иметь возможность просто создать объект Attachment и добавить его в коллекцию Attachments на WorkItem, прежде чем сохранить его:
Dim attachment As New Microsoft.TeamFoundation.WorkItemTracking.Client.Attachment("c:\somefile.txt", "My Comment")
workItem.Attachments.Add(attachment)
workItem.Save()