Function EvalTerraExplorerVersion(Major, Minor, Build)
    Dim GetMajor, GetMinor, GetBuild
    Dim ITerraExplorer

    Set ITerraExplorer = document.getElementById("test_te").interface("ITerraExplorer5")
    
    ITerraExplorer.GetTEVersion GetMajor, GetMinor, GetBuild 
    
    Set ITerraExplorer = Nothing
    
    If GetMajor < Major Then
        EvalTerraExplorerVersion = -1
    ElseIf GetMajor = Major And GetMinor < Minor Then
        EvalTerraExplorerVersion = -1
    ElseIf GetMajor = Major And GetMinor = Minor And GetBuild < Build Then
        EvalTerraExplorerVersion = -1
    Else
        EvalTerraExplorerVersion = 0
    End If

End Function