Need help translating - C# to VB.net

[[email protected]]

Updated code, New error:

System.MissingMemberException was unhandled by user code
Message="No default member found for type 'Integer'."
Source="Microsoft.VisualBasic"
StackTrace:
at Microsoft.VisualBasic.CompilerServices.Symbols.Container.GetMembers(String& MemberName, Boolean ReportErrors)
at Microsoft.VisualBasic.CompilerServices.NewLateBinding.CallMethod(Container BaseReference, String MethodName, Object[] Arguments, String[] ArgumentNames, Type[] TypeArguments, Boolean[] CopyBack, BindingFlags InvocationFlags, Boolean ReportErrors, ResolutionFailure& Failure)
at Microsoft.VisualBasic.CompilerServices.NewLateBinding.InternalLateIndexGet(Object Instance, Object[] Arguments, String[] ArgumentNames, Boolean ReportErrors, ResolutionFailure& Failure)
at Microsoft.VisualBasic.CompilerServices.NewLateBinding.LateIndexGet(Object Instance, Object[] Arguments, String[] ArgumentNames)
at _Default.sendQueryOffers() in C:\WebDev\ws_services\WebSite8\Default.aspx.vb:line 87
at _Default.Button1_Click1(Object sender, ImageClickEventArgs e) in C:\WebDev\ws_services\WebSite8\Default.aspx.vb:line 101
at System.Web.UI.WebControls.ImageButton.OnClick(ImageClickEventArgs e)
at System.Web.UI.WebControls.ImageButton.RaisePostBackEvent(String eventArgument)
at System.Web.UI.WebControls.ImageButton.System.Web.UI.IPostBackEventHandler.RaisePostBackEvent(String eventArgument)
at System.Web.UI.Page.RaisePostBackEvent(IPostBackEventHandler sourceControl, String eventArgument)
at System.Web.UI.Page.RaisePostBackEvent(NameValueCollection postData)
at System.Web.UI.Page.ProcessRequestMain(Boolean includeStagesBeforeAsyncPoint, Boolean includeStagesAfterAsyncPoint)

Partial Class _Default
    Inherits System.Web.UI.Page
 
    Sub sendQueryOffers()
        Dim strAddr As New WebReference.UnparsedUSAddressType
        Dim CableServiceEnum As New WebReference.CableServiceEnum
        Dim AllServiceEnum As New WebReference.AllServiceEnum
        Dim strAffType As New WebReference.AffiliateType
        Dim origAffType As New WebReference.AffiliateType
        Dim Privacy As New WebReference.PrivacyNoticeEnum
        Dim retAddr As WebReference.ParsedUSAddressType = Nothing
        Dim intTrackingID As Integer
        Dim strCableServiceReq() As WebReference.CableServiceEnum = New WebReference.CableServiceEnum(0) {}
        Dim strAllService() As WebReference.AllServiceEnum = New WebReference.AllServiceEnum(0) {}
        Dim strPhone As String = "0000000000"
        Dim strLanguage As String = "en-us"
        Dim refWeb As New WebReference.QueryOffersService
        Dim msoffers() As WebReference.MSOOffersResponseType
        'Dim Offers() As WebReference.DataOfferType
        'Dim offer As OffersResponse = OffersResponse.DownloadSpeed
        Dim dot As WebReference.DataOfferType
 
        'Dim myType As Type = Type.GetType(MyControlInstance)
        'Define Passed Variables
        strCableServiceReq(0) = CableServiceEnum.CableHighSpeedData
 
        'Subscriber service
        strAllService(0) = AllServiceEnum.CableHighSpeedData
 
        'Originating Affiliate
        origAffType.AffiliateID = Nothing
        origAffType.SalesPersonID = Nothing
 
        'Affiliate details
        strAffType.AffiliateID = Convert.ToInt32("122100")
        strAffType.SalesPersonID = "0"
        strAffType.StoreID = "0"
        strAffType.G2BVersion = Convert.ToDecimal(4.0)
 
        'Address details
        strAddr.AddressLine = address.Text
        strAddr.City = ""
        strAddr.State = ""
        strAddr.Zip = zip.Text
 
        'Load query and send
        refWeb.Url = "https://www.xxxxxxxxxxxxx.com/QueryOffers/QueryOffers.asmx"
        Dim Resp
 
        Resp = refWeb.QueryOffers(strAffType, Nothing, strAddr, WebReference.PrivacyNoticeEnum.OptIn, strCableServiceReq, strAllService, strPhone, strLanguage, retAddr, msoffers, intTrackingID)
 
        Dim msot, msoi, msoa, saddress, msoItems, msoAddressSuggest, msooffers
 
        Try
            msooffers = -1
            msoItems = -1
            msooffers = msoffers(0).Items.Length - 1
            msoItems = msoffers(0).Items.Length - 1
            Exit Try
        Catch
        End Try
 
        Try
            msoAddressSuggest = -1
            msoAddressSuggest = msoffers(0).AddressSuggestion.Length - 1
            Exit Try
        Catch
        End Try
 
        If msoAddressSuggest = -1 And msoItems = -1 Then
            Response.Write("Nothing to do.")
        End If
 
        If msoAddressSuggest <> -1 Then
            ReDim saddress(msoffers(msot).AddressSuggestion.Length)
            For msoa = 0 To msoffers(msot).AddressSuggestion.Length
                saddress(msoa) = msoffers(msot).AddressSuggestion(msoa).AddressLine & " " & msoffers(msot).AddressSuggestion(msoa).Suite & " " & msoffers(msot).AddressSuggestion(msoa).City & ", " & msoffers(msot).AddressSuggestion(msoa).State & " " & msoffers(msot).AddressSuggestion(msoa).Zip & "-" & msoffers(msot).AddressSuggestion(msoa).Zip4
                Response.Write(saddress(msoa))
            Next
            Exit Sub
        Else
 
        End If
        'Response.Redirect("Today.html")
        For msoi = 0 To msoffers(0).Items().Length - 1
 
            dot = CType(msooffers(0).items(msoi), WebReference.DataOfferType)
            Response.Write(dot.DownloadSpeed)
            Try
                Response.Write(msoffers(0).Items(msoi).MarketingInfo.Main & "<br>")
            Catch
            End Try
            Response.Write(FormatCurrency(msoffers(0).Items(msoi).Price.Value, 2) & "<BR>")
            Response.Write("<-----------------------------------------------><BR><BR>")
        Next msoi
 
 
    End Sub
 
    Protected Sub Button1_Click1(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles Button1.Click
        Call sendQueryOffers()
    End Sub
End Class