Sub GetManufacturerSerialNumber As String
Dim sn As String
Dim r As Reflector
Dim m As Object
Dim Types(1) As String
Types(0) = "java.lang.String"
r.target = r.CreateObject("android.os.SystemProperties")
m = r.GetMethod("get", Types)
sn = r.InvokeMethod(r.Target,m,Array("ril.serialnumber"))
Return sn
End Sub