Italian Ciao a tutti come converto questo codice da vb net a b4a

Dim job As HttpJob
job.Initialize("", Me)
job.Download("http://192.168.1.35/FileBrowser/Download?Path=/DataLogs/DOSAGGIO.csv")

ProgressDialogShow("Downloading...")

Wait For (job) JobDone(job As HttpJob)
ProgressDialogHide

If job.Success Then
    Dim result As String = job.GetString
    Log(result.SubString2(0, 100))
    
    Dim tr As InputStream
    tr.InitializeFromBytesArray(result.GetBytes("UTF8"))
    
    Dim sw As TextReader
    sw.Initialize(tr)
    
    ProgressBar1.Value = 0
    ProgressBar1.Maximum = 1001
    Dim CONTA As Int = 1000
    For I = 0 To CONTA
        If sw.Peek <> -1 Then
            Dim Str2() As String = Regex.Split(",", sw.ReadLine)
            If I < 1 Then
                For T = 0 To 7 '9
                    DataGridView1.Columns.Get(T).HeaderText = Str2(T)
                Next
            Else
                'DataGridView1.Rows.Add(Str2(0), Str2(1), Str2(2), Str2(3), Str2(4), Str2(5), Str2(6), Str2(7), Str2(8), Str2(9)) '
                DataGridView1.AddSingleLine(Str2(0) & "," & Str2(1) & "," & Str2(2) & "," & Str2(3) & "," & Str2(4) & "," & Str2(5) & "," & Str2(6) & "," & Str2(7))
            End If
        End If
        ProgressBar1.Value = ProgressBar1.Value + 1
    Next
    sw.Close
    
    ' FILE SALVA OK
    Dim path As String = File.DirInternal
    Dim memString As String = result
    Dim buffer() As Byte = memString.GetBytes("ASCII")
    Dim ms As OutputStream
    ms.InitializeToBytesArray(buffer)
    Dim file As OutputStream
    file = File.OpenOutput(path, "DOSAGE.csv", False)
    file.WriteBytes(buffer, 0, buffer.Length)
    file.Close
    ms.Close
End If
job.Release

Sub DownloadFile
    Dim Job As HttpJob
    Job.Initialize("JobName", Me)
    Job.Download("http://192.168.1.35/FileBrowser/Download?Path=/DataLogs/DOSAGGIO.csv")
    Job.GetRequest.SetHeader("Referer", "http://192.168.1.35/Portal/Portal.mwsl?PriNav=FileBrowser&Path=/DataLogs")
    Job.GetRequest.SetHeader("Cookie", "cookie.txt")

    Wait For (Job) JobDone(Job As HttpJob)
    If Job.Success Then
        Log(Job.GetString)
    Else
        Log("Errore durante il download del file: " & Job.ErrorMessage)
    End If
    Job.Release
End Sub

Sub Button1_Click
    'xui.MsgboxAsync("Hello world!", "B4X")
    
    B4XTable1.MaximumRowsPerPage = 10
    B4XTable1.BuildLayoutsCache(10)
    

    Dim datax1 As List
    datax1.Initialize
    

    job4.Initialize("Job4", Me)
    job4.Download("http://192.168.1.35/FileBrowser/Download?Path=/DataLogs/DOSAGGIO.csv") 'it can also be PostString or any of the other methods
    job4.GetRequest.SetHeader("Referer", "http://192.168.1.35/Portal/Portal.mwsl?PriNav=FileBrowser&Path=%2FDataLogs")
    job4.GetRequest.SetHeader("Cookie", "cookie.txt")
    
End Sub
Sub JobDone (Job As HttpJob)
    Log("JobName = " & Job.JobName & ", Success = " & Job.Success)
    B4XTable1.Clear
        Dim datax As List
    datax.Initialize
    If Job.Success = True Then
        
        
        Select Job.JobName
            Case "Job1", "Job2"
                'VEDRO DOPO
            Case "Job3"
                'VEDRO DOPO
                'ImageView1.SetImage(Job.GetBitmap)
            Case "Job4"
            '    QUELLO CHE MI SERVE PER IL MOMENTO
                Dim result As String = Job.GetString
                Dim Rows() As String = Regex.Split(CRLF, result)
                
                ' Aggiungiamo le intestazioni alla griglia
                Dim Headers() As String = Regex.Split(",", Rows(0))
                
            
                Dim I As Int
                For I = 0 To Headers.Length - 1
                
                    B4XTable1.AddColumn(Headers(I), B4XTable1.COLUMN_TYPE_TEXT)
            
                
                Next
        
                ' Aggiungiamo le righe alla griglia
                For I = 1 To Rows.Length - 1
                Dim Values() As String = Regex.Split(",", Rows(I))
                    datax.Add(Array(Values(0), Values(1), Values(2),Values(3), Values(4), Values(5), Values(6), Values(7)))
                B4XTable1.SetData(datax)
            
            
            
                Next
                
                
        End Select
    Else
        Log("Error: " & Job.ErrorMessage)
    End If
    Job.Release
End Sub