Where your service reference is called MoodleWS
Dim s As New MoodleWS.MoodleWSPortTypeClient()
Dim lr As MoodleWS.loginReturn = s.login("username", "password")
Dim userMoodle As MoodleWS.getUsersReturn
userMoodle = s.get_user(lr.client, lr.sessionkey, "UserID", "username")
Dim gradesReturn As MoodleWS.getGradesReturn
'Get the Grades for the User
gradesReturn = s.get_user_grades(lr.client, lr.sessionkey, "UserID", "Username")
'For each of the users grade
For i = 0 To gradesReturn.grades.Length - 1
Console.WriteLine(fimFirstName & " " & fimLastName)
Console.WriteLine("Error: " & gradesReturn.grades(i).error.ToString)
Console.WriteLine("Feedback: " & gradesReturn.grades(i).feedback.ToString)
Console.WriteLine("ItemID: " & gradesReturn.grades(i).itemid.ToString)
Console.WriteLine("Str Grade: " & gradesReturn.grades(i).str_grade.ToString)
Console.WriteLine("Grade: " & gradesReturn.grades(i).grade.ToString)
next