SUB GetHostIP ( )