'Make a temporary GE .kml file
    File_xkm = FreeFile
    Open mydirectory + "C_wiz GE temp.kml" For Output As File_xkm
    Close #File_xkm

    'Get the GE executable name
    GE_exe = Space$(1024)
    rc& = FindExecutable(mydirectory + "C_wiz GE temp.kml", "", GE_exe)

    'Delete the temporary .kml file
    Kill mydirectory + "C_wiz GE temp.kml"
    
    'For all possible chars in GE executable name, starting at end...
    For i% = 1024 To 1 Step -1
    
        'Quit loop if non-terminator and non-blank char found
        If Mid$(GE_exe, i%, 1) <> Chr$(0) And Mid$(GE_exe, i%, 1) <> " " Then Exit For
        
    Next
        
    'Trim GE executable name
    GE_exe = Left$(GE_exe, i%)
        
    'For all chars in GE executable name...
    For i% = 1 To Len(GE_exe)
    
        'Replace any terminator chars with blank chars (see Microsoft KB article
        'KB140724)
        If Mid$(GE_exe, i%, 1) = Chr$(0) Then Mid$(GE_exe, i%, 1) = " "
        
    Next

    'If GE executable name found...
    If GE_exe <> "" Then
    
        'If GE executable not found...
        If Dir(GE_exe) = "" Then
        
            'Flush GE executable name
            GE_exe = ""

        End If
        
    End If