سلام با دستور زیر هم میتونید بفهمید کد کشور سیم کارت تون چیه !

sub GetSimCardCountry as String
Dim r As Reflector
r.Target = r.GetContext
r.Target = r.RunMethod2(“getSystemService”, “phone”, “java.lang.String”)
return r.RunMethod(“getSimCountryIso”)
End Sub

مثلا برا ایران رو ir میزنه