Convert VBS to VB.net/VB 2008

'=========================
        ' Get_Warranty_Info_On_HP_Equipment_From_Service_Tag.vbs
        ' http://www.experts-exchange.com/Programming/Languages/Q_23097377.html
        Dim strInputFile, strOutputFile, objFSO, strDetails, arrLine, strProductNumber, strSerialNumber, strURL
        Dim objIE, strPageText, strCurrentProduct, strSearchText, intSummaryPos, intSummaryTableStart, intSummaryTableEnd
        Dim strInfoTable, arrCells, intCell, intOpenTag, intCloseTag, strNewCell, strCurrentTag, intField, strServiceTag
        Dim strJoinFields, strCell, objOutputFile, objShell
        strInputFile = "RN040AW#ABA;CNU7050TSR"
        strOutputFile = "Results.csv"
        strCurrentTag = ""
        strServiceTag = ""
        Dim arrTextToSearchFor() = {"Warranty Type", "HWM Onsite"}
 
        Dim arrJoinFields() = {"Serial Number", "Product Number", "Product Description", "Date of Warranty Check", "Warranty Type", "Start Date", "HP Care Pack Serial Number", "HWM Onsite", "Status", "End Date", "Service Level", "Deliverables", "6-Hour, 24x7, Call-To-Repair, HW Support", "Wty: HP HW Maintenance Onsite Support", "Wty: HP Support for Initial Setup"}
 
        objFSO = CreateObject("Scripting.FileSystemObject")
        'Const intForReading = 1
 
        strDetails = """WARRANTY INFORMATION"""
        'Set objInputFile = objFSO.OpenTextFile(strInputFile, intForReading, False)
        'While Not objInputFile.AtEndOfStream
        arrLine = Split(strInputFile, ";")
        strProductNumber = arrLine(0)
        strSerialNumber = arrLine(1)
        strURL = "http://www11.itrc.hp.com/service/ewarranty/warrantyResults.do?BODServiceID=NA&serialNumber10=&RegisteredPurchaseDate=&y=11&x=26&serialNumber4=&country=IN&serialNumber9=&serialNumber5=&serialNumber6=&serialNumber7=&serialNumber8=&serialNumber1=" & strSerialNumber & "&serialNumber2=&serialNumber3=&productNumber=" & strProductNumber & "&hpweb_printable=true"
        objIE = CreateObject("InternetExplorer.Application")
        objIE.Visible = True
        objIE.Navigate(strURL)
        'While objIE.ReadyState <> 4
        'WScript.Sleep(100)
        'End While
 
        strPageText = objIE.Document.Body.InnerHTML
        'WScript.Echo strPageText
 
        ' Reset the text for the current product
        strCurrentProduct = ""
 
        For Each strSearchText In arrTextToSearchFor
            intSummaryPos = InStr(LCase(strPageText), LCase(strSearchText))
            If intSummaryPos > 0 Then
                intSummaryTableStart = InStrRev(LCase(strPageText), "<table", intSummaryPos)
                intSummaryTableEnd = InStr(intSummaryPos, LCase(strPageText), "</table>") + 8
                strInfoTable = Mid(strPageText, intSummaryTableStart, intSummaryTableEnd - intSummaryTableStart)
                strInfoTable = Replace(Replace(Replace(strInfoTable, vbCrLf, ""), vbCr, ""), vbLf, "")
                strInfoTable = Replace(strInfoTable, "<BR>", vbLf)
                'WScript.Echo strInfoTable
                arrCells = Split(LCase(strInfoTable), "</td>")
                For intCell = LBound(arrCells) To UBound(arrCells)
                    arrCells(intCell) = Trim(arrCells(intCell))
                    intOpenTag = InStr(arrCells(intCell), "<")
                    While intOpenTag > 0
                        intCloseTag = InStr(intOpenTag, arrCells(intCell), ">") + 1
                        strNewCell = ""
                        If intOpenTag > 1 Then strNewCell = strNewCell & Trim(Mid(arrCells(intCell), intOpenTag - 1))
                        If intCloseTag < Len(arrCells(intCell)) Then strNewCell = strNewCell & Trim(Mid(arrCells(intCell), intCloseTag))
                        arrCells(intCell) = Trim(strNewCell)
                        intOpenTag = InStr(arrCells(intCell), "<")
                    End While
                Next
                'WScript.Echo Join(arrCells, "|")
                strCurrentProduct = strCurrentProduct & Join(arrCells, "|")
                strCurrentProduct = Replace(strCurrentProduct, "||", "|")
                'strCurrentProduct = Replace(Replace(Replace(strCurrentProduct, "||", "|"), VbCrLf & "|", "|"), "|" & VbCrLf, "|")
                If Mid(strCurrentProduct, 1) = "|" Then strCurrentProduct = Mid(strCurrentProduct, Len(strCurrentProduct) - 1)
                If Mid(strCurrentProduct, 1) = "|" Then strCurrentProduct = Mid(strCurrentProduct, Len(strCurrentProduct) - 1)
                If LCase(arrCells(0)) = LCase("Service Tag:") Then
                    'strCurrentTag = """" & strServiceTag & """"
                    strCurrentTag = ""
                    For intField = 1 To UBound(arrCells) Step 2
                        If strCurrentTag = "" Then
                            strCurrentTag = """" & arrCells(intField) & """"
                        Else
                            strCurrentTag = strCurrentTag & ",""" & arrCells(intField) & """"
                        End If
                    Next
                ElseIf LCase(arrCells(0)) = LCase("Description") Then
                    For intField = 5 To UBound(arrCells)
                        strCurrentTag = strCurrentTag & ",""" & arrCells(intField) & """"
                    Next
                End If
            Else
                strCurrentTag = """" & strServiceTag & """,""No warranty information found."""
            End If
        Next
        'WScript.Echo strCurrentProduct
        If InStr(strCurrentProduct, "hpcare pack serial numberhpcare pack serial number") > 0 Then _
              strCurrentProduct = Replace(strCurrentProduct, "hpcare pack serial numberhpcare pack serial number", "hp care pack serial number")
        arrCells = Split(strCurrentProduct, "|")
        strJoinFields = ";" & Join(arrJoinFields, ";") & ";"
        For Each strCell In arrCells
            strCell = ProperCase_Words(strCell)
            If InStr(LCase(strJoinFields), ";" & LCase(strCell) & ";") > 0 Then
                strDetails = strDetails & vbCrLf & """" & strCell & """"
            Else
                'strDetails = Left(strDetails, Len(strDetails) - 1) & ": " & strCell & """"
                strDetails = Mid(strDetails, Len(strDetails) - 1) & """,""" & strCell & """"
            End If
        Next
        strDetails = strDetails & vbCrLf & vbCrLf & "==========================" & vbCrLf
        objIE.Quit()
        'Wend
        'objInputFile.Close
        'Set objInputFile = Nothing
 
        objOutputFile = objFSO.CreateTextFile(strOutputFile, True)
        objOutputFile.Write(strDetails)
        objOutputFile.Close()
        objOutputFile = Nothing
        objFSO = Nothing
 
        objShell = CreateObject("WScript.Shell")
        objShell.Run("""" & strOutputFile & """", 1, False)
        'MsgBox "Done. Please see " & strOutputFile

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:

Dim strSerialNumber, strProductNumber
        'strInputFile = "RN040AW#ABA;CNU7050TSR"
        strSerialNumber = "CNU7050TSR"
        strProductNumber = "RN040AW#ABA"
        My.Computer.FileSystem.WriteAllText("C:\temp\webresults.txt", WebPages.GetPageText("http://www11.itrc.hp.com/service/ewarranty/warrantyResults.do?BODServiceID=NA&serialNumber10=&RegisteredPurchaseDate=&y=11&x=26&serialNumber4=&country=IN&serialNumber9=&serialNumber5=&serialNumber6=&serialNumber7=&serialNumber8=&serialNumber1=" & strSerialNumber & "&serialNumber2=&serialNumber3=&productNumber=" & strProductNumber & "&hpweb_printable=true"), True)
        Dim lines As String() = System.IO.File.ReadAllLines("C:\temp\webresults.txt")
        '12th line is at index 11 - arrays are 0-based.
        '34th character is at index 33 - strings are also 0-based.
        Dim Warranty_end As String = Replace(lines(870), vbTab, "")
 
        MsgBox(Warranty_end)

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11: