Try
Dim GroupMap As Map
GroupMap.Initialize
GroupMap.Put("name",EPersonGroupName.Text)
GroupMap.Put("userData",EPersonGroupUserData.Text)
Dim JSONGenerator As JSONGenerator
JSONGenerator.Initialize(GroupMap)
Dim JSONstring As String
JSONstring = JSONGenerator.ToString
Dim job2 As HttpJob
job2.Initialize("job2",Me) ' Create Person Group
job2.PutString("https://api.projectoxford.ai/face/v0/persongroups/"& groupId,JSONstring)
job2.GetRequest.SetHeader("Content-Type","application/json")
job2.GetRequest.SetHeader("Ocp-Apim-Subscription-Key","xxxxxxxxxxxxxxxxxxxxx")
Catch
ToastMessageShow("Comms with Oxford failed",False)
End Try