[VB] Post http

[MissN]

Dal mio client vb devo invocare una servlet, non mia.

Ho già chiamato altre servlet tramite post di dati in formato xml tramite il seguente codice:

Public Sub requestWeb(ByVal _xml As String, ByVal _url As String)
'//Connessione con servlet
Try

SBO_Application.SetStatusBarMessage("Caricamento in corso...", bmt_Short, False)
'Creazione richiesta
Dim request As WebRequest = WebRequest.Create(_url)
request.Method = "POST"
'Conversione in byte array della stringa
Dim byteArray As Byte() = Encoding.UTF8.GetBytes(_xml)
request.ContentType = "application/x-www-form-urlencoded"
request.ContentLength = byteArray.Length
'Stream della richiesta
Dim dataStream As Stream = request.GetRequestStream()
'Inserimento dei dati nella richiesta
dataStream.Write(byteArray, 0, byteArray.Length)
dataStream.Close()

'Creazione risposta
Dim response As WebResponse
Try

response = request.GetResponse()
'Stato risposta
Console.WriteLine(CType(response, HttpWebResponse).StatusDescription)

'Stream della risposta del server
dataStream = response.GetResponseStream()
Dim reader As New StreamReader(dataStream)
Dim responseFromServer As String = reader.ReadToEnd()
Console.WriteLine(responseFromServer)

reader.Close()
dataStream.Close()
response.Close()
SBO_Application.SetStatusBarMessage("Caricamento terminato.", bmt_Short, False)
If String.IsNullOrEmpty(_xml) Then
System.Diagnostics.Process.Start(_url)
End If
Catch ex As WebException
'Errore server
Console.WriteLine(request)
Dim r = New StreamReader(ex.Response.GetResponseStream())
Dim data = r.ReadToEnd()
r.Close()
Console.WriteLine(ex.Message)
Console.WriteLine(data)
End Try
Catch ex As Exception
SBO_Application.MessageBox(ex.ToString)
End Try
End Sub

La servlet che devo invocare adesso, richiede invece un post http: io non ho la form html col tasto submit o cose del genere; conosco solo i parametri che devo passare.
Ho provato strutturandoli nella seguente stringa e usando la stessa funzione requestWeb
Dim par = String.Format("nome_modello={0}&cod={1}&user={2}&pwd={3}", "fatt", "dati", "amm", "amm")
o
Dim par = "encoding=UTF-8&nome_modello=fatt&cod=dati&user=amm&pwd=amm"

Qualcuno sa aiutarmi???
Grazie