This code takes care of requesting the location permission which is needed on Android 8+:
B4X:
Sub GetWifiInfo As ResumableSub
Dim p As Phone
Dim WifiManager As JavaObject
Dim WifiInfo As JavaObject
WifiManager = WifiManager.InitializeContext.RunMethod("getSystemService"...