Einfügen von Text in Excel-Textbox aus Access

Sub test()
Dim oapp As New Excel.Application
Dim wkb As Excel.Workbook
Dim ws As Excel.Worksheet
Dim tbox As Excel.Shape
Set oapp = CreateObject("Excel.Application")
With oapp
Set wkb = .Workbooks.Add
Set ws = wkb.ActiveSheet
wkb.Activate
Set tbox = ws.Shapes.AddTextbox(msoTextOrientationHorizontal, _
0, 0, 200, 50)
tbox.Select
With Selection
.Characters.Text = "Hallo ..."
End With
.Visible = True
.UserControl = True
End With
End Sub