The Bold text need to be converted in Vb.bet
Code:
Public Overridable Sub Init(ByVal app As System.Web.HttpApplication) Implements System.Web.IHttpModule.Init
app.BeginRequest
          app += New EventHandler(AddressOf Me.BaseModuleRewriter_AuthorizeRequest)
        End Sub

        Protected Overridable Sub BaseModuleRewriter_AuthorizeRequest(ByVal sender As Object, ByVal e As EventArgs)

            Dim app As HttpApplication = CType(sender, HttpApplication)
            Rewrite(app.Request.Path, app)
        End Sub