postwall("Jim has scored 100 points on Game X.")
Sub PostWall (MyMessage as string)
'Add Description
Dim nv As Map
nv.Initialize
nv.Put("message", MyMessage )
req = MultipartPost.CreatePostRequest(DataRequestLink & "?access_token=" & AccessToken, nv, Null)
hc.Execute(req, 1)
End Sub