Do you know the server's IP?
Create a Client object and connect to this IP (use port 23):
Don't forget to add a reference to the Network library and add a Client object named client.
Code:
Sub App_Start
client.New1
client.Connect("xxx.xxx.xxx.xxx",23)
msgbox("Client connected.")
client.Close
End Sub