dev_kc 0 Light Poster

The control is not going to EditGoto,its is coming out of the whole sub part on report click btn

Public Sub Create_Report()
WordDocument.EditGoto "CurrentDate"
WordDocument.Insert Format(Now, "mmm,d,yyyy")
End Sub

Public Sub EditGoto(inNm As String)
owordapp.Selection.Goto What:=wdGoToBookmark, Name:=inNm
End Sub

Please help me with this:S