diff --git a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas b/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
index c005928c..95384911 100644
--- a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
+++ b/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
@@ -569,6 +569,11 @@ Function callRestApi(Byval method As String, Byval url As String, Optional Byval
         DoEvents
     Loop
 
+    '�f�o�b�O�p: ���X�|���X�S�����o�́i����������ɍ폜����j
+    Debug.Print "  [DEBUG] Response Status: " & objHTTP.Status & " " & objHTTP.statusText
+    Debug.Print "  [DEBUG] Response Body (�S��):"
+    Debug.Print objHTTP.responseText
+
     '���X�|���X�̕�����iobjHTTP.responseText�j��Json�ɕϊ����ĕԋp
     Set callRestApi = JsonConverter.ParseJson(objHTTP.responseText)