Effektifisering af dette

Hvordan kan jeg effektivisere denne funktion?

Public Function Http_Get(ByVal Host As String, ByVal RequestData As String, Optional ByVal RecieveTimeOut As Integer = 5000) As String
        Dim EPIP As IPEndPoint
        Dim ReturnData As String
        Dim Socket_MySocket As System.Net.Sockets.Socket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)

        Try
            EPIP = New IPEndPoint(Dns.Resolve(Host).AddressList(0), 80)
            If EPIP.Address.ToString = "" Then
                Http_Get = False
                Exit Function
            End If

            Socket_MySocket.SetSocketOption(SocketOptionLevel.Socket, SocketOptionName.ReceiveTimeout, RecieveTimeOut)
            Socket_MySocket.Connect(EPIP)
            If Not Socket_MySocket.Connected Then
                Http_Get = False
                Exit Function
            End If
            Socket_MySocket.Send(ASCII.GetBytes(RequestData))
            Dim Buffer(102400) As Byte
            Dim ByteCount As Int16 = Socket_MySocket.Receive(Buffer, Buffer.Length, 0)
            ReturnData = ASCII.GetString(Buffer, 0, ByteCount)
            While ByteCount > 0
                ReturnData &= ASCII.GetString(Buffer, 0, Socket_MySocket.Receive(Buffer, Buffer.Length, 0))
            End While
            Return ReturnData
        Catch
            Return Err.Description & ReturnData
            Exit Function
        End Try
    End Function

På forhånd tak.