VBAのFunctionにて、定義した関数が使用できないことを解決したいです

Question

Google Maps API を使って2点間の距離を求めるユーザー定義関数を作りたいのですが、画像のようなエラーになり進めません！ご教授願いたいです。当方はVBAずぶの素人であり、以下のサイトを参考にしています。
https://www.excel-pitin.net/post/2018/01/19/google-maps-api-%E3%82%92%E4%BD%BF%E3%81%A3%E3%81%A62%E7%82%B9%E9%96%93%E3%81%AE%E8%B7%9D%E9%9B%A2%E3%82%92%E6%B1%82%E3%82%81%E3%82%8B%E3%83%A6%E3%83%BC%E3%82%B6%E3%83%BC%E5%AE%9A%E7%BE%A9%E9%96%A2%E6%95%B0%E3%82%92%E4%BD%9C%E3%82%8B

追記画像

追記画像２

追記画像３

Function DGMAP(origin As String, destination As String, distance As Boolean) As String

    'http://stackoverflow.com/questions/10116301/google-maps-api-for-time-and-distance-data-access-vba
 

    Dim sXMLURL As String
 sXMLURL = "https://maps.googleapis.com/maps/api/directions/xml?origin=" & origin & "&destination=" & destination & "&sensor=false&key=APIキー"
 

    Dim objXMLHTTP As MSXML2.ServerXMLHTTP60

    Set objXMLHTTP = New MSXML2.ServerXMLHTTP60
 

    With objXMLHTTP

        .Open "GET", sXMLURL, False

        .setRequestHeader "Content-Type", "application/x-www-form-URLEncoded"

        .Send

    End With
 

    'Debug.Print objXMLHTTP.ResponseText
 

    Dim domResponse As DOMDocument60

    Set domResponse = New DOMDocument60

    domResponse.LoadXML objXMLHTTP.ResponseText

    Dim ixnStatus

    Set ixnStatus = domResponse.SelectSingleNode("//status")
 

    If ixnStatus.Text = "OK" Then

        Dim ixnDistance, ixnDuration

        Set ixnDistance = domResponse.SelectSingleNode("/DirectionsResponse/route/leg/distance/text")

        Set ixnDuration = domResponse.SelectSingleNode("/DirectionsResponse/route/leg/duration/text")

    End If

    If IsEmpty(ixnDistance) Then

        DGMAP = "Empty"

        Exit Function

    End If
　'距離（True) または時間（False)

    If distance = True Then

        DGMAP = left(ixnDistance.Text, InStr(1, ixnDistance.Text, " ") - 1)

    Else

        DGMAP = ixnDuration.Text

    End If

    Set domResponse = Nothing

    Set objXMLHTTP = Nothing

End Function

Comments

[m.ts10806]

>VBAのFunctionについて
というタイトルでは現象伝わりませんので、タイトル調整願います。
要件を記載願います。

[imihito]

DGMAPはどの種類のモジュールに定義していますか？(e.g. 標準モジュール、シートモジュール、…)

[kud]

標準に当たるのではないかと思います。スクショを追加添付いたします。

Answer 1

「ユーザー定義型は定義されていません」について

Microsoft XML の参照設定は行っていますか？
また、Microsoft XMLにはバージョンがいくつかあるようです。（v.3～6）
どれを参照設定していますか？

Comments

[kud]

参照設定は特にさわっておりませんでした。
現状、追記画像２のような状態です。
こちらどのように変更するのがよいでしょうか？

[kenshirou]

kudさんが参考にしたページにも、「Microsoft XML v.[version]を参照設定して、次のコードを標準モジュール内に貼り付けて下さい」との記載がありますので、参照設定を行ってください。
VB画面外枠のウィンドウのメニューバーより、[ツール(T)]-[参照設定(R)]ってメニューは確認できますか？
それを選んだ時に表示される参照可能なライブラリファイル一覧に、
Microsoft XML, v.3.0
Microsoft XML, v.4.0
Microsoft XML, v.5.0
Microsoft XML, v.6.0
とありますが、そのどれかを選択してみてください。
（どれがベストなのかは分かりません。）

[kud]

ご返信ありがとうございます！
試したところMicrosoft XML, v.6.0のみ作動が出来ました。
ただ、住所を入力してもemptyとしか表示されない状態です。
こちら原因はわかりますでしょうか？
※追記画像3参照

[kenshirou]

APIキーは取得して、正しく設定されていますか？
sXMLURL = "https://maps.googleapis.com/maps/api/directions/xml?origin=" & origin & "&destination=" & destination & "&sensor=false&key=APIキー"
のAPIキーの所に取得したAPIキーを設定します。

[kud]

出来ました！大変助かりました！ありがとうございます！

Answer 2

同じプロジェクト内に、同じ名前（DGMAP）のプロシージャがありませんか？

Comments

[kud]

ありがとうございます！2つあったようなので1つにし、一先ず前進できました。
新たにエラーが出てしまい「ユーザー定義型は定義されていません」と表示されました。
こちらは解決可能でしょうか？

[kud]

参考画像を追加いたしました