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