У меня работает:

Private Sub Document_Open()
MsgBox "Hello"
End Sub


Office2003