And to start unravelling, search for MsgBox:
Private Sub O110001010110100000001011011010_Click()
O100110100001011101010101000100 "$MI7McAnw|!iRwWP>c6o_JOQ;$U}zg~6qAINQ;$T}zg~6qAJNR;Sg[T<Z": On Error Resume Next: MsgBox O100111011111000011000010011110(O010000010100101001101010111001) & Application.UserName & "!" & vbLf & vbLf & O110100111000101010101011011001(O101100011010000111000001001000) & O010111011010111011111110001111 & ")", vbInformation, Application.ActiveSheet.Name: Auto_Open
End Sub