Hjælp med kode fra ASP til VB.NET socket.TCP

Hej.

Er der nogen der kan vise mig hvordan jeg laver følgende ASP-kode om til VB.NET i en windows form....?

Sub SendChargedSMS(msg,recipient,sapid,billingcode,smsc)
  gethttp "s1.tge.dk:8080","/ComSMS/Sender?msg=" & Server.URLEncode(replace(msg,vbnewline,vbLf)) & "&rec=" & recipient & "&sapid=" & sapid & "&bc=" & billingcode & "&smsc=" & smsc,returnxml
end Sub

' Intern funktion til at lave et http get kald
Sub gethttp(host,url,returnxml)
Dim objSocket
Set objSocket = Server.CreateObject("Socket.TCP")
objSocket.Host = host
strRequest = "GET " & url & " HTTP/1.0" & VbCrLf
strRequest = strRequest & "Host:" & host & VbCrLf
objSocket.Open
objSocket.SendLine(strRequest)
objSocket.WaitForDisconnect
tmpBuffer = objSocket.Buffer
Pos = InStr(tmpbuffer, VbCrLF&VbCrLf)
tmpbuffer = Mid(tmpbuffer, pos+1)
returnxml = tmpbuffer
objSocket.Close
end sub