Range("d49").Value =ComplexityListBox.listindex+1
It might be beneficial to study some VBA-fundamentals (including userforms) first.