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)