Is there somethign wrong with this

ok I fixed that thanks to your help but I am trying to start a server

Function startserver()

svr=CreateTCPServer(8080)
If svr<>0 Then
Print "Server started successfully."
Else
Print "Server failed to start."
End If
End Function

and it starts it and then says it didn't and then quits