Размер задается через тэг <FNT size></FNT>.
Function FindLabel ( [Sevooborot], [NU], [su] )
FindLabel = [Sevooborot]&"<SUP><FNT size='20'><CLR red='255' green='0' blue='0'><UND>"&[NU]&"</UND></CLR>"&vbNewLine&[su]&"</FNT></SUP>"
End Function
У меня тоже была идея поиграться с размерами шрифта изначально. Но это приводит к тому, что изменяется высота строки, следовательно верхний индекс начинает сильно уползать наверх. Визуально это приводит к тому, что целая часть слишком уж в знаменателе. На мой взгляд это не красиво и мириться с более мелкой дробной частью куда проще.
Если это не приемлимо, то можно вопользоваться аннотациями. Коротко: целая часть - одна аннотация, дробная - другая, с отступом. Но опять же тут полно условностей влияющих на конечный результат.