PI = 4 * ATAN(1)

Visual Basicの事はよく知りませんが、なにしろ
あのMicrosoftの製品ですから、軽く半万桁くらいの精度は
出ると思います。