visualbasic 6.0 OLE to MS word

Private Sub Command1_Click()
Static wd1 As Word.Application
Static wd1Doc As Word.Document
Set wd1 = New Word.Application
wd1.Visible = True
 
Set wd1Doc = wd1.Documents.Add(App.Path & "\profile.dotx")
 
With wd1Doc
    .FormFields("w_name").Range = Text1.Text
    .FormFields("w_age").Range = Text2.Text
    .FormFields("w_sex").Range = Combo1.Text
    .FormFields("w_exam").Range = Text3.Text
    .FormFields("w_file").Range = Text4.Text
    .FormFields("w_result").Range = OLE1.????????????