Private Sub SurroundingSub()

    Dim request As System.Net.HttpWebRequest = CType(System.Net.WebRequest.Create("https://vpostest.qnbfinansbank.com/Gateway/Default.aspx"), System.Net.HttpWebRequest)

    Dim parameters As Byte() = System.Text.Encoding.UTF8.GetBytes(str.ToString())

    request.Method = "POST"

    request.ContentType = "application/x-www-form-urlencoded"

    request.ContentLength = parameters.Length

    Dim requeststream As System.IO.Stream = request.GetRequestStream()

    requeststream.Write(parameters, 0, parameters.Length)

    requeststream.Close()

    Dim resp As System.Net.HttpWebResponse = CType(request.GetResponse(), System.Net.HttpWebResponse)

    Dim responsereader As System.IO.StreamReader = New System.IO.StreamReader(resp.GetResponseStream(), System.Text.Encoding.UTF8)

    Dim responseStr As String = responsereader.ReadToEnd()

​

    If responseStr IsNot Nothing Then

        Dim paramArr As String() = responseStr.Split(New Char() {";"c, ";"c}, StringSplitOptions.RemoveEmptyEntries)

    End If

End Sub