เป็น procedure สำหรับแก้สมการเชิงอนุพันธ์หลายๆ สมการพร้อมๆ กันไปได้ ด้วยวิธีของ Range-Kutta อันดับ 4 โดยต้องทราบค่าเริ่มต้น
[hide=2]
[code]Global FirstBlock, Lastblock,
Global Block(1000)
test_RK4

Sub test_RK4()
Block(1) = 20
FirstBlock = 1
Lastblock = 3

Open "c:\RK4_out.txt" For Output As 1
Click = 0.05
Debug.Print Lastblock
Debug.Print "Thinking..."
While Clock < 5