Public Sub confirmEmailVerification(oobCode As String) As ResumableSub
Dim url As String = $"https://identitytoolkit.googleapis.com/v1/accounts:update?key=${API_KEY}"$
Dim json As JSONGenerator
json.Initialize(CreateMap("oobCode":oobCode))
Dim j As HttpJob : j.Initialize("",Me)
j.PostString(url,json.ToString)
j.GetRequest.SetContentType("application/json")
Wait For (j) JobDone(j As HttpJob)
Return GenerateResult(j)
End Sub