The code you referenced still works but you would need to initialize Serial1 first.
B4X:
Dim Serial1 As Serial
Dim testSerial As String
Serial1.Initialize("Serial1")
Try
testSerial = Serial1.Address
Available = True
Catch
Available = False
End Try
Edit: You also need to include the Serial library.
Thank you very much AllyAndroid.....it is my mistake, yes your code works
Try
testSerial = Serial1.Address
btAvailable = True
ToastMessageShow("BT is built in", True)
Catch
btAvailable = False
ToastMessageShow("BT is not built in", True)
End Try