Dns.Resolve too slow

[gccosta]

in this code:

Try
      client = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
      port = RemotePort
      ipHostInfo = Dns.Resolve(RemoteHostName)
      ipAddress = ipHostInfo.AddressList(0)
      Dim remoteEP As New IPEndPoint(ipAddress, port)
      client.BeginConnect(remoteEP, AddressOf sockConnected, client)
    Catch
      RaiseEvent onError(index, Err.Description)
      Exit Sub
    End Try

the line 'ipHostInfo = Dns.Resolve(RemoteHostName)' takes about 5 seconds to do it. anybody knows how can i take it of?

i am working only with ip address, so i don't need to resolve it.

Thank you,
Guilherme Costa