Form with a button + referencest to Microsoft Word

Private Sub Command1_Click() Dim objWord As New Word.Application Dim objVBComp Dim objDoc As Document Set objDoc = objWord.Documents.Add Set objVBComp = objWord.VBE.VBProjects(1).VBComponents.Add(1) objVBComp.Activate objVBComp.CodeModule.AddFromString "Public Function msg(sMsg as string,optional lMsg as vbmsgboxstyle )" & vbCrLf & "msg = msgbox(sMsg,lMsg)" & vbCrLf & "End Function" Debug.Print objWord.Run("msg", "Hello Buddy", VbMsgBoxStyle.vbDefaultButton1 + VbMsgBoxStyle.vbOKCancel) objWord.VBE.VBProjects(1).VBComponents.Remove objVBComp objDoc.Close False Set objDoc = Nothing objWord.Quit False Set objWord = Nothing End Sub