GS made a 'typo':

Function bGoogleEarthAvailable() As Boolean
Dim x As Object
On Error Resume Next
Set x = CreateObject("Google Earth.Application") 'edit to suit
bGoogleEarthAvailable = (Err = 0)
x.Quit: Set x = Nothing
End Function

Usage example:

If bGoogleEarthAvailable Then DoSomething Else DoSomethingElse

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion