' パイを求める
Function Pai(TopBust As Integer, UnderBust As Integer) As Integer

Pai = TopBust - UnderBust

End Function

文字列にしないと1000桁は無理だな。