こんばんは、魔界の仮面弁士様
追加の御教授ありがとうございます
WIAも１０進数に変換して、
全て確認できました。
WIAは、初めて使いましたが、非常に簡便にコードが書け、勉強になりました。
他にも使えるか、勉強してみたいです。

＜補足＞
jhondoe様のtrail-noteに触発されて、
国土地理院様の地図タイルや、
高度（標高）タイルを
VBAで実現してみたいと思いました。
最初jsの関数をVBAから取得できないか試していたのですが、
まだうまくいってなくて
VBA単独で出来ないか、試していました。

http://www.trail-note.net/tech/coordinate/の式で、
①ハイパボリックタンジェントの逆関数をVBAに出来たら、
ｘ、ｙ座標を取得できて、
②PNGをDL出来て
③PNGの色を読み取れたら、
高度を取得できると、考えました。

①はWEBを参考に自分で、
②は
@notmushroom様などの
https://qiita.com/notmushroomを参考にDLできました。
残る③が、クラスライブラリでは実現できましたが、VBA単独で実現できず、
るきお様のところで、魔界の仮面弁士様の助けを借りて実現できました。
クラスライブラリか、APIか、WIAで取得できるようになりました。

Function piVBA() As Double

Dim pi As Double

piVBA = 4 * Atn(1)

End Function



Function atanhVBA(X As Double)

'http://tancro.e-central.tv/grandmaster/excel/vba-function-triangle.html 

  If X <= -1 Then

    atanhVBA = 0

  ElseIf X >= 1 Then

    atanhVBA = 0

  Else

    atanhVBA = 1 / 2 * Log((1 + X) / (1 - X))

  End If

End Function

で、①を実現できると思いますので、
サーチエンジンなどで、「国土地理院タイル」で、ここにたどり着いた人で、
VBAで、やってみたい方は、御覧になってみて下さい。