B4R Question How to scan and BLE devices currently In Range Using HM10 BLE

Sub Process_Globals
    Public Serial1 As Serial
    Private wifi As ESP8266WiFi
    Private timer1 As Timer
    Private astream As AsyncStreams
    Private myserial As SoftwareSerial
    Private dpins As D1Pins   'Maps the pins of WeMos boards.
    Private D5,D6 As Pin
End Sub

Private Sub AppStart
    Serial1.Initialize(115200)
    Log("AppStart")
    If wifi.Connect2("xxxxxx", "xxxxxx") Then
        Log("Connected to network")
    Else
        Log("Failed to connect to network")
    End If
    timer1.Initialize("CheckConnStat",2000)
    timer1.Enabled=True
    'Initialize the Pins
    D5.Initialize(dpins.D5,D5.MODE_INPUT)  'This PIN is for RX
    D6.Initialize(dpins.D6, D6.MODE_OUTPUT)   ''This PIN is for TX
    'initialize software serial
    myserial.Initialize(115200,dpins.D5,dpins.D6)
    astream.Initialize(myserial.Stream,"astream_NewData",Null)
    'One time for testing
    astream.Write("AT".GetBytes)
    astream.Write(CRLF)
End Sub

Private Sub CheckConnStat
    If wifi.IsConnected Then
        'Do Nothing
        Log("Already Connected")
    Else
        wifi.Connect2("xxxx", "xxxx")
    End If
End Sub
Private Sub astream_NewData(Buffer() As Byte)
    Log("receive: ", Buffer)
End Sub

Private Sub astream_NewData(Buffer() As Byte)
    Log("receive: ", Buffer)
End Sub

astream.Write(Array As Byte(b))

<AT>+carriage Return