Create CheckNetwork.vb