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