redmine api チケット出力でカスタムフィールドの値を出力できない。

いつもお世話になります。

下記サイトを参考にredmine からvbaを使ってチケット出力を行っており、デフォルトのiDやトラッカーは問題なく取得出来ています。
しかしカスタムフィールドで登録した値に関しては以下のように記載してみても、エラーが発生し取得できない状況です。

よろしくお願いします。

ソース

vba
1Dim baseurl As String, targeturl As String
2    Dim header As Integer, row As Integer
3    Dim min As Integer, max As Integer
4    Dim cnt As Integer
5    Dim ticketid As String
6    Dim dom As Object
7    Dim issue As Object
8
9    baseurl = "http://redmine/"
10    header = 5
11    row = header + 1
12    min = 1
13    max = 100
14    cnt = min
15
16    '[A～G]欄の[row～(max-min+1)]行まで一気にクリアする
17    Range(Cells(row, 1), Cells(max - min + 1, 7)).Clear
18
19    Do While Cells(row, 1) = ""
20
21        ticketid = Trim(str(cnt - header))
22
23        'APIアクセスキーなし
24        targeturl = baseurl + ticketid + ".xml"
25        'APIアクセスキーあり
26        'targeturl = baseurl + ticketid + ".xml?key=aaaaaaaaaaaaaaaaaaaa"
27
28        Set dom = CreateObject("MSXML2.DOMDocument")
29        dom.async = False
30        dom.setProperty "ServerHTTPRequest", True
31        dom.Load (targeturl)
32        Set issue = dom.ChildNodes.Item(1)
33
34        If Not (issue Is Nothing) Then
35            Cells(row, 1) = issue.getElementsByTagName("id").Item(0).text
36            Cells(row, 2) = issue.getElementsByTagName("project").Item(0).getAttribute("name")
37            Cells(row, 3) = issue.getElementsByTagName("tracker").Item(0).getAttribute("name")
38            Cells(row, 4) = issue.getElementsByTagName("status").Item(0).getAttribute("name")
39            Cells(row, 5) = issue.getElementsByTagName("priority").Item(0).getAttribute("name")
40'カスタムフィールド　ここでエラーが起きる。
41Cells(row,　6)=issue.getElementsByTagName("cf_116").Item(0).text
42            row = row + 1
43        End If
44
45        cnt = cnt + 1
46        If cnt > max Then
47            GoTo 9999
48        End If
49    Loop
509999