From c73c915ae968cad39c8d7b45f8d4b391110e49f6 Mon Sep 17 00:00:00 2001
From: Jason Williams <jaywll@outlook.com>
Date: Tue, 28 Jun 2016 19:01:34 -0600
Subject: [PATCH] Bugfix for returned value

---
 SPListLibrary.bas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/SPListLibrary.bas b/SPListLibrary.bas
index 4456ac6..21ce8e8 100644
--- a/SPListLibrary.bas
+++ b/SPListLibrary.bas
@@ -34,9 +34,9 @@ Public Function SPListItem(SharepointUrl As String, ListName As String, ListData
     
     If objXMLHTTP.Status = 200 Then
         Set xmlhttpResponse = objXMLHTTP.responseXML
-        CreateSPItem = CInt(xmlhttpResponse.SelectSingleNode("//UpdateListItemsResult//Results//Result//z:row").Attributes.getNamedItem("ows_ID").Text)
+        SPListItem = CInt(xmlhttpResponse.SelectSingleNode("//UpdateListItemsResult//Results//Result//z:row").Attributes.getNamedItem("ows_ID").Text)
     Else
-        CreateSPItem = -1
+        SPListItem = -1
     End If
     
     Set objXMLHTTP = Nothing