Visual basic működése Google sheets-el?

Azt szeretném, hogy a Visual basic programom egy adott google táblázatba írjon/olvasson adatokat. Addig eljutottam , hogy a Visual Studioba feltelepítettem a Google Sheets Api v4-et. Több internetes fórumot elolvastam, de nekem egyik se működött. Pl ehhez a példa kódhoz mit kell írni hogy működjön?

Option Infer On

Imports Google.Apis.Auth.OAuth2

Imports Google.Apis.Sheets.v4

Imports Google.Apis.Sheets.v4.Data

Imports Google.Apis.Services

Imports Google.Apis.Util.Store

Imports System

Imports System.Collections.Generic

Imports System.IO

Imports System.Threading

Namespace SheetsQuickstart

Friend Class Program

' If modifying these scopes, delete your previously saved credentials

' at ~/.credentials/sheets.googleapis.com-dotnet-quickstart.json

Private Shared Scopes() As String = {SheetsService.Scope.SpreadsheetsReadonly}

Private Shared ApplicationName As String = "Google Sheets API .NET Quickstart"

Shared Sub Main(ByVal args() As String)

Dim credential As UserCredential

Using stream = New FileStream("credentials.json", FileMode.Open, FileAccess.Read)

Dim credPath As String = "token.json"

credential = GoogleWebAuthorizationBroker.AuthorizeAsync(GoogleClientSecrets.Load(stream).Secrets, Scopes, "user", CancellationToken.None, New FileDataStore(credPath, True)).Result

Console.WriteLine("Credential file saved to: " & credPath)

End Using

' Create Google Sheets API service.

Dim service = New SheetsService(New BaseClientService.Initializer() With { _

.HttpClientInitializer = credential, _

.ApplicationName = ApplicationName _

})

' Define request parameters.

Dim spreadsheetId As String = "1BxiMVs0XRA5nFMdKvBdBZjgmUUqptlbs74OgvE2upms"

Dim range As String = "Class Data!A2:E"

Dim request As SpreadsheetsResource.ValuesResource.GetRequest = service.Spreadsheets.Values.Get(spreadsheetId, range)

' Prints the names and majors of students in a sample spreadsheet:

' [link]

Dim response As ValueRange = request.Execute()

Dim values As IList(Of IList(Of Object)) = response.Values

If values IsNot Nothing AndAlso values.Count > 0 Then

Console.WriteLine("Name, Major")

For Each row In values

' Print columns A and E, which correspond to indices 0 and 4.

Console.WriteLine("{0}, {1}", row(0), row(4))

Next row

Else

Console.WriteLine("No data found.")

End If

Console.Read()

End Sub

End Class

End Namespace

És hova kell írni a main subot?