VBA Port Scanning?

[VBAcoder]

Hey guys. I have a port scanning script that should work:

Private Function IsOutsidePortinUse(ByVal PortNumber As Integer) As Boolean
Dim oSocket As Object
Dim bAns As Boolean
On Error Resume Next
Set oSocket = CreateObject("MSWinsock.Winsock.1")
    If Err.Number > 0 Then
        Err.Raise 30000, , "Could not create winsock object"
        Exit Function
    End If
Err.Clear
oSocket.RemoteHost = "74.125.237.80"
oSocket.RemotePort = PortNumber
oSocket.Connect
bAns = Err.Number = 10048 'port is busy
oSocket.Close
Set oSocket = Nothing
IsPortinUse = bAns
End Function

but it always returns false? Does anyone know why?

[Kami-]

bAns = Err.Number = 10048 'port is busy

...