'before you use this code select " microsoft word 8.0 object library" from references of project menu in vb and then try this code
'place a command button and then try this one

Dim x As Object
Dim z As document
Set x = CreateObject("word.application")
Set z = x.documents.Add
z.Sentences(1).Text = "this ia an example by phani" & vbCrLf & " this has been tested by me"
z.Sentences(1).Font.Name = "Times New Roman"
z.Sentences(1).Font.Size = 10
z.Save