Probleme mit Worksheet_change

ich verwende die Worksheet_change Routine um den Wert einer Zelle zu überwachen die sich ändern. Die Änderungen werden via DDE von einem anderen Programm vorgenommen. Anscheinend scheint Excel solche Änderungen nicht zu erkennen. Hat da jemand ne Idee?

Hier mein Code:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

Const PrjDatei = "C:\Test\Robo.pro"
DdeKanal = DDEInitiate("Codesys", PrjDatei)
Application.DDEPoke DdeKanal, "OBJ.WINKEL", Range("B1")
Application.DDEPoke DdeKanal, "OBJ.X_SOLL_OPT", Range("B2")
Application.DDEPoke DdeKanal, "OBJ.Y_SOLL_OPT", Range("B3")
Application.DDEPoke DdeKanal, "OBJ.FERTIG", Range("B4")
DDETerminate (DdeKanal)

End Sub