Imports Microsoft.Office.Interop

Public Class Form1
    Dim app As New Word.Application
    Dim doc As New Word.Document

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        app.Visible = True
        app.Activate()
        doc = app.Documents.Add
        app.Application.Selection.TypeText(RichTextBox1.Text)
    End Sub
End Class