HTTP Listner for URL Grabbing

HTTP_GET_Listner.vb

  Private Sub ProcessRequests()
        If Not System.Net.HttpListener.IsSupported Then
            Exit Sub
        End If

        Dim listener As System.Net.HttpListener = _
            New System.Net.HttpListener()
         listener.Prefixes.Add("http://*:8998/")

        listener.Start()
        Try
            Dim context As HttpListenerContext = listener.GetContext()
            finalparam = context.Request.Url.AbsolutePath.Replace("/", "")
           
        Catch ex As HttpListenerException
            MsgBox(ex.Message)
        End Try

    End Sub