Sub GetUrl As String
Dim NaObj As NativeObject
NaObj = NaObj.Initialize("FBSDKAccessToken")
Dim Token As String = NaObj.RunMethod("currentAccessToken",Null).GetField("tokenString").AsString
'More info: https://developers.facebook.com/docs/graph-api/reference/v2.8/user/picture
Return $"https://graph.facebook.com/me/picture?access_token=${Token}&type=large"$
End Sub