Dim DB As FirebaseRealtimeDatabase
DB.Initialize("DB",Me,"https://[YOUR_PROJECT_ID].firebaseio.com/")
DB.ReadData("news/today","","news")
Wait For DB_DataBaseCommunicationComplete(ResponseData As Map, RequestTag As String)
If ResponseData.IsInitialized Then
'Do your stuff
Else
Msgbox("Something went wrong!","Oops...")
End If