How can I know my phone number?

[Beja]

Hi friends,

Talking about buetooth communication. I want the other side know my phone
number from caller-id, in order to verify transmission source. I don't want to
provide my number as anyone who knows that number can also send it, but
the number should be appended automatically from somewhere in the phone
(don't know where).

Thanks in advance

 

[Ohanian]

Hi,

   Dim p As PhoneId
   Dim sPhoneNumber As String
   sPhoneNumber = p.GetLine1Number

 

[KZero]

Hi,

   Dim p As PhoneId
   Dim sPhoneNumber As String
   sPhoneNumber = p.GetLine1Number

this code not working with almost of devices

i don't know if there is a way working with all