public class Test
public Shared Sub Main
Dim objWord As New Word.Application
objWord.Visible = True
objWord.Documents.Add()
objWord.Selection.TypeText("This is text from a VB 2005 application.")
objWord = Nothing
End Sub
End Class