Sub Globals
Dim PhoneId As PhoneId
End Sub
Sub Activity_Create(FirstTime As Boolean)
Msgbox(PhoneId.GetDeviceId, "Your device ID")
End Sub
I guess one has also to add the permission in the manifest
<uses-permission android:name="android.permission.READ_PHONE_STATE"/>