For i = 0 To UBound(arrArray())
For j = i + 1 To UBound(arrArray())
If StrComp(UCase(arrArray(i)), UCase(arrArray(j)), vbTextCompare) = 1 Then
tmpArray = arrArray(i)
arrArray(i) = arrArray(j)
arrArray(j) = tmpArray
End If
Next
Next
251 ms totalt · 4 externa anrop · v20260731065814-full.1dc6f849