Select Case tnLanguage ' French Case 1 lcString = oData(lnCounter).Row("French") ' English Case 2 lcString = oData(lnCounter).Row("English") End SelectWhat you see here is exactly the formatting provided by the interface. I just don't understand why the Case 1 is not indented properly with the rest. I started to have those issues last night. Even if I force a formatting, this won't change. Anyone could see something wrong in the code here that would generate such behavior?