ActiveX cannot create component error, sockets

Hello,
below script not working in OS 64 bit

Dim oTelnet
oTelnet = CreateObject("Socket.Tcp")

With oTelnet
.DoTelnetEmulation = True
.TelnetEmulation = "TTY"
.Host = "192.168.242.1:23"
.Open
.WaitFor "SLUSSEN login:"
.SendLine "ANiftyUsename"
.WaitFor "Password:"
.SendLine "TEHP@ssw0rd"
.WaitFor "~ #"
.SendLine "ifconfig"
MsgBox .Buffer
.Close
End With

Set oTelnet = Nothing