Dim a = "[Username=someuser , Password=somepass , lostmode=off , Latitude= , Longitude= , TTS= , Vibrate= , Alarm= , Call= , SMSNumber= , SMSMessage= , POPMessage= , Camera= , Record= , Shutdown= , Restart= , Lockout=off , Screen= , Date= , Wipe= , LockPasscode=bill ]" As String
Dim b() As String
b = Regex.Split(" ,", a)
For i = 1 To b.Length -1
b(i) = b(i).SubString(b(i).IndexOf("=")+1)
If i = b.Length -1Then b(i) = b(i).SubString2(0, b(i).Length -1)
Log(b(i))
Next