Prueba esto, aunque ya te adelanto que en algunos dispositivos clonicos puede que no te devuelva algo correcto
B4X:
If SaberFunciones("android.hardware.location.gps") Then
Msgbox("Si existe GPS", "")
Else
Msgbox("No existe GPS","")
End If
Sub SaberFunciones(Funciones As String) As Boolean
Dim r As Reflector
r.Target = r.GetContext
r.Target = r.RunMethod("getPackageManager")
Return r.RunMethod2("hasSystemFeature", Funciones, "java.lang.String")
End Sub