Private Sub json_SkipSpaces()

in spreadsheet/JsonConverter.bas [744:749]

• 3 lines of code
• 5 McCabe index (conditional complexity)

Private Sub json_SkipSpaces(json_String As String, ByRef json_Index As Long)
    
    Do While json_Index > 0 And json_Index <= VBA.Len(json_String) And VBA.Mid$(json_String, json_Index, 1) = " "
        json_Index = json_Index + 1
    Loop
End Sub