Dim in As Intent
in.Initialize("com.evernote.action.CREATE_NEW_NOTE", "")
in.PutExtra("android.intent.extra.TEXT", "This is the text")
in.PutExtra("android.intent.extra.TITLE", "Title here")
StartActivity(in) 'will throw an error if Evernote is not installed.