股票動態連結和vb的問題

TO：各位大大：

不好意思，我是VB的初學者，現在遇到一些問題想請教各位
是這樣的，我把股票軟體內的DDE動態連結拉到EXCEL，希望能用VB把動態連結的資料留存下來，並做成5分鐘為一列的開高低收，我用的方式是這樣的

Private Sub Worksheet_Calculate()

Application.EnableEvents = False

Range("A65536").End(xlUp).Offset(1, 0) = Range("A2").Value:

Range("B65536").End(xlUp).Offset(1, 0) = Range("B2").Value

Application.EnableEvents = True

Call 高點: Call 低點: Call 收盤

End Sub

Function 高點()

'08:50:00

If Range("A2") <= "0.368055555555556" And Range("E2").Value < Range("B2").Value Then Range("E2") = Range("B2").Value: Exit Function

…

…

以此類推。

但我發現我高點就要寫60個條件，低點、收盤就各60個，結果一旦動態連結的資料變動時，根本來不及執行程式，是不是我那裏做錯了，可以請個指導我一下好嗎？拜託，拜託，謝謝各位，感激不盡~~~~~(PS.~~SORRY，VB我真的懂得不多，所以要麻煩用比較簡單的方式告訴我好嗎？阿里阿多)　 Cry