ddeinitiate Hangs

[Ann]

On a certain pc i have problems starting, it always
blocks:
I have the problem when i start it from within excel as
well as when i start it from within visual basic.

Can somebody help me?

intChan1 = DDEInitiate("Winword", "System") '
Establish link.
If Err Then ' If error
occurs, Excel may
Err = 0 ' not be
running. Reset error
Shell "C:\Programfiles\office\winword.exe",
1 ' and start spreadsheet.
If Err Then Exit Sub ' If another
error, exit.
' Establish Spreadsheet link.
intChan1 = DDEInitiate("winword", "System")
End If