auslesen von Zelle aus Word

Sub Excel_to_Word1()
Dim MyXL As Object
Dim meinWert As Object
Dim a As String
Dim oDoc As Document
Set oDoc = ActiveDocument
Set MyXL = CreateObject("Excel.Application")
MyXL.Visible = True
MyXL.Workbooks.Open ("C:\Users\Peter\Desktop\Test1\Mappe_1.xlsm")
Set meinWert = MyXL.Worksheets("Worddaten")
a = meinWert.Range("B76").Value
End Sub