B4R Question ESP8266 connect with PC

#Region Project Attributes
    #AutoFlushLogs: True
    #CheckArrayBounds: True
    #StackBufferSize: 2000
#End Region

Sub Process_Globals
    Public Serial1 As Serial
    Public SerialCom As SoftwareSerial
    Private wifi As ESP8266WiFi
    Private server As WiFiServerSocket
    Private astreamWiFi As AsyncStreams
    Private astreamCom As AsyncStreams


End Sub

Private Sub AppStart

    Serial1.Initialize(115200)
   
    Log("AppStart")
   
    Log(wifi.StartAccessPoint2("WIIIFIII", "06112006"))
    Log("Wifi AP IP",wifi.AccessPointIp)
    RunNative("SetAP", Null)
    Log("Wifi AP IP",wifi.AccessPointIp)
    Log("Wifi is connected:",wifi.IsConnected)
 

    server.Initialize(80, "server_NewConnection")
    server.Listen
    Log("Server is listening")


    SerialCom.Initialize(9600, 2, 0)
    astreamCom.Initialize(SerialCom.Stream,"astreamCom_NewData", "astreamCom_Error")
   Log("Serialport is listening")
    Log("Wifi is connected:",wifi.IsConnected)
End Sub

#if C
void SetAP(B4R::Object* o) {
   WiFi.mode(WIFI_AP);
}
#end if

Sub WiFi_Socket_Connected (Connected As Boolean)
    Log("Wifi Socket connected")
End Sub

Sub server_NewConnection(NewSocket As WiFiSocket)
    Log("New connection")
    astreamWiFi.Initializeprefix(NewSocket.Stream, False, "astreamWiFi_NewData", "astreamWiFi_Error")
    Log("remoteIp " , NewSocket.RemoteIp)
    Log("remoteport " ,NewSocket.RemotePort)
    Log("remoteconnected: " ,NewSocket.Connected)
    Log("Wifi is connected:",wifi.IsConnected)
    Log("Established New connection")
End Sub

Sub astreamWiFi_NewData(Buffer() As Byte)
    Log("WifiStreamReceived")
    astreamComData(Buffer)
    Log(Buffer)
End Sub

Sub astreamWiFiData(data() As Byte)
    Log("Send Serial Data to Wifi")
    astreamWiFi.Write(data)
End Sub

Sub astreamWiFi_Error
    Log("a Wifi Data error")
    ''server.Initialize(80, "server_NewConnection")''??
    server.Listen
End Sub

Sub astreamCom_NewData(Buffer() As Byte)
    Log("Serial Data received")
    If server.Socket.Connected Then
        Log("and Socket connected")
        astreamWiFiData(Buffer)
        Log(Buffer)
    End If
End Sub

Sub astreamComData(data() As Byte)
    Log("Send Wifistream to Comport")
    astreamCom.Write(data)
End Sub

Sub astreamCom_Error
    'Log("error")
End Sub