Sub Bingo()
Dim xOx, Gong, Flying_Teapot!
xOx = Split("1010011²1000101²1011001", "²")
ReDim Gong(UBound(xOx))
For Flying_Teapot = LBound(xOx) To UBound(xOx)
Gong(Flying_Teapot) = Chr(Application.Bin2Dec(xOx(Flying_Teapot)))
Next
Acces_Granted = Join(Gong, vbNullString)
MsgBox StrReverse(Acces_Granted) & "!", vbExclamation, "Le confinement a encore frappé!"
End Sub