Dim subResponse As GoCardless.Services.SubscriptionResponse
Try
subResponse = oClientApi.Subscriptions.CreateAsync(subRequest).Result
Catch ex As Exception
Dim inner As Object = ex.InnerException
Dim myTask As Task(Of String) = inner.responseMessage.content.ReadAsStringAsync()
Dim ErrorMsg As String = myTask.Result
This would be very useful to add to the Docs...