' Creat vcf file
File.WriteString(Path, "vcard.vcf", YourValue)
' copy to SharedFolder
Dim fp As FileProvider
fp.Initialize
File.Copy(Path, "vcard.vcf", fp.SharedFolder, "vcard.vcf")
'Insert in contacts
Dim thisintent As Intent
thisintent.Initialize(thisintent.ACTION_VIEW,fp.GetFileUri("vcard.vcf"))
thisintent.SetType("text/x-vcard")
thisintent.Flags = 0x01
StartActivity(thisintent)