Hi can someone help me convert my old vb6 coding over to vb.net thanks in advance

Code:
Dim HTML, start, a, B, As Long
Dim Gend As String

Private Sub Command1_Click()
       
Call Getpages

End Sub

Sub Getpages()
       
  Gend = "http://localhost/interests.php?view=ALL"
    
        Form1.Caption = "Encore ~ Titles Collecting..."

    Do
    HTML = Inet1.OpenURL(Gend)
    Loop Until Inet1.StillExecuting = False
    Debug.Print HTML
      
    Open "C:\dvd_titles.txt" For Append As #1
    start = 1
        Do Until InStr(start, HTML, "/interests.php?dvd=") = 0
             a = InStr(start, HTML, "/interests.php?dvd=") + 19
             B = InStr(a, HTML, """>") - a
        
    start = a + B
    
    Print #1, Mid(HTML, a, B)
    
        Loop
    Close #1
           
End Sub