Dim no As NativeObject = User
Dim ProviderData As List = no.GetField("providerData")
If ProviderData.IsInitialized Then
For Each UserInfo As NativeObject In ProviderData
If UserInfo.GetField("providerID").IsInitialized Then
Dim Provider As String = UserInfo.GetField("providerID").AsString
If UserInfo.GetField("email").IsInitialized Then
Dim email As String = UserInfo.GetField("email").AsString
Log("Provider email: " & email)
End If
End If
Next
End If