Spanish [SOLUCIONADO]saber si otra aplicacion esta instalada.

Sub aplicacionInstalada(package As String) As Boolean
    Try
        Dim r As Reflector
        r.Target = r.GetContext
        r.Target = r.RunMethod("getPackageManager")
        r.Target = r.RunMethod3("getPackageInfo", package, "java.lang.String", 0x00000001, "java.lang.int")
        Return True
    Catch
        Return False
    End Try
End Sub

Sub aplicacionInstalada(NombreDelPaquete As String) As Boolean

    Dim pm As PackageManager ' libreria Phone
    Try
        pm.GetVersionName(NombreDelPaquete)
        Return True
     Catch
        Return False
    End Try     
 
En Sub