Something like this should work:
Dim json As String = responseFromServer
Dim ser As JObject = JObject.Parse(json)
Dim members As JToken = ser("members")
For Each member As JObject In members
Dim u As String = member("email_address")
Dim d As String = member("status")
Dim l As String = member("merge_fields")("LOADEDFROM")
Next