CreateObject issue (error 13)

[sc6po]

Hi,
I was trying to exchange data between Visio and Excel with VBA, but it seems
nothing works.
Whatever I do, I always have this Error #13 - Type not compatible.
Got the References for OLE automation and Excel 10.0 / Visio 10.0 and Word
10.0...
Whatever Visio/Excel/Word, type are not compatible.
But, when using Visio, the application is launched. Got some ideas?
Thanks.
Stephen

Public Sub vv()
Dim xlApp As Excel.Application
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
xlApp.Quit
End Sub