Excel ---- Word

folgende Prozedur liegt in Mappe1.xls vor:

Option Explicit
Dim name, vorname As String
Sub Word()
vorname = Range("B3").Value
name = Range("B4").Value
CreateObject("word.application").documents.Open("c:\Angebot.doc").Application.Visible = True
Application.Run ("'c:\Angebot.doc'!Einfügen"), vorname, name
End Sub

Folgender Code in einem Modul in Angebot.doc

Option Explicit
Function Einfügen(name, vorname As String)
TextBox1.Text = vorname
TextBox2.Text = name
End Function

Klappt aber nicht, Excel sagt mir, dass "Angebot.doc" ein ungültiges Dateiformat hat. Wie kann ich denn aus Excel Variablen in ein Worddokument übernehmen ? Nicht mit Application.Run ?

Danke

Nico