Fixed "WebStatusCode" in the guides (#419)

* Fixed error in the basic usage example of VBA-Web.

Fixed error in the basic usage example of VBA-Web.

* Update get.md

Fixed WebStatusCode in "GET request" page of the guides.

* Update post.md

Fixed WebStatusCode in "POST request" page of the guides.

Author: sylvaindesve

docs/_guides/get.md

@@ -35,7 +35,7 @@ Public Function GetProject(Id As Long) As Dictionary
     '    ...
     '    {"data":{"id":1,"name":"Project 1"}}
 
-    If Response.StatusCode = WebStatus.Ok Then
+    If Response.StatusCode = WebStatusCode.Ok Then
         ' json response is automatically parsed based Request.Format
         Set GetProject = Response.Data("data")
     End If
@@ -47,7 +47,7 @@ Public Function GetProject2(Id As Long) As Dictionary
     Dim Response As WebResponse
     Set Response = Client.GetJson("projects/" & Id)
 
-    If Response.StatusCode = WebStatus.Ok Then
+    If Response.StatusCode = WebStatusCode.Ok Then
         Set GetProject2 = Response.Data("data")
     End If
 End Function

docs/_guides/overview.md

@@ -48,7 +48,7 @@ Public Function GetProjects() As Collection
     '    ...
     '    {"data":[{"id":1,"name":"Project 1"},{"id":2,"name":"Project 2"}]}
 
-    If Response.StatusCode <> WebStatus.Ok Then
+    If Response.StatusCode <> WebStatusCode.Ok Then
         Err.Raise Response.StatusCode, "GetProjects", Response.Content
     Else
         ' Response is automatically converted to Dictionary/Collection by Request.Format

docs/_guides/post.md

@@ -29,12 +29,12 @@ Public Function CreateProject(Project As Dictionary) As Long
     '    ...
     '    {"data":{"id":3,"name":"new Project"}}
 
-    If Response.StatusCode <> WebStatus.Created Then
+    If Response.StatusCode <> WebStatusCode.Created Then
         Err.Raise Response.StatusCode, "CreateProject", _
             "Failed to create project: " & Response.Content
     Else
         ' Return id of created project
         CreateProject = Response.Data("data")("id")
     End If
 End Sub
-```
+```