Try to add something like this:

>With thisform.OleControl1
> .Navigate2('file://c:\global\bownetest.xls')
> Do While .ReadyState # 4 or ;
type(".object.document")#"O" or ;
isnull(.object.document)

> EndDo
>endwith
>
>oXLS = thisform.OleControl1.object.document
>oExcel = oXLS.Application
>
>Thanks
>
>Colin