Avoid subscript out of range error due when aggressively sanitizing t…

…he XML due to lngLine going beyond the end of the UBound(varLines)
joyfullservice · Apr 2, 2023 · a66e4fb · a66e4fb
1 parent c31f9ce
commit a66e4fb
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/Version Control.accda.src/modules/modSanitize.bas b/Version Control.accda.src/modules/modSanitize.bas
@@ -601,7 +601,12 @@ Public Function SanitizeXML(strPath As String, blnReturnHash As Boolean) As Stri
                 If Options.AggressiveSanitize Then
                     Do While Not EndsWith(strTLine, "/>")
                         lngLine = lngLine + 1
-                        strTLine = TrimTabs(Trim$(varLines(lngLine)))
+                        If lngLine <= UBound(varLines) Then
+                            strTLine = TrimTabs(Trim$(varLines(lngLine)))
+                        Else
+                            strTLine = vbNullString
+                            Exit Do
+                        End If
                     Loop
                 Else
                     ' Keep line and continue