Index: TAOR-rework-bugfixing/TAOR rework/databases/Ardis/ArdisData.vb
===================================================================
diff -u -r1644 -r1646
--- TAOR-rework-bugfixing/TAOR rework/databases/Ardis/ArdisData.vb	(.../ArdisData.vb)	(revision 1644)
+++ TAOR-rework-bugfixing/TAOR rework/databases/Ardis/ArdisData.vb	(.../ArdisData.vb)	(revision 1646)
@@ -79,11 +79,12 @@
         Return PartExt07
     End Function
 
-    'specials
+    'Specials
 
-    Public Sub pasKleurAanSpecial()
-        Dim firstIndex As Integer = PartMat.IndexOf(".") + 1
-        Dim lastIndex As Integer = PartMat.LastIndexOf(".")
+    'todo documentatie fixen wth hier gebeurt
+    Public Sub PasKleurAanSpecial()
+        Dim firstIndex As Integer = PartMat.IndexOf(".", StringComparison.Ordinal) + 1
+        Dim lastIndex As Integer = PartMat.LastIndexOf(".", StringComparison.Ordinal)
         PartExt07 = PartMat.Substring(firstIndex, lastIndex - firstIndex)
     End Sub