Dim DatosConectados As Toggle ' libreria Toggle
If DatosConectados.DataConnection then ' datos moviles
If DatosConectados.WiFi Then ' Wifi
' y este de regalo :D por si quieres saber si esta en modo avion:
If DatosConectados.AirplaneMode Then ' modo avion (si esta este no hay los dos anteriores)