Wait For (fa_rest.signInEmailPW(TextField1.Text,TextField2.Text,True)) complete (root As Map)
If root.Get("success") = True Then
Dim mytoken as String = root.Get("idToken") 'YOU NEED THIS TOKEN'
For Each k As String In root.Keys
Log("Key: " & k & CRLF & "Value: " & root.Get(k))
Next
Store.Initialize("Firestore",Me,mytoken,"(default)","wiki-fan-47nnd92")
Else
Log("ErrorCode: " & fa_rest.getErrorCode(root))
Log("ErrorMessage: " & fa_rest.getErrorMessage(root))
Log("Reason: " & fa_rest.getErrorMap(root).Get("reason"))
Log("Domain: " & fa_rest.getErrorMap(root).Get("domain"))
Log("Message: " & fa_rest.getErrorMap(root).Get("message"))
End If