Public Function SizeUpperText( _
   ByVal index As Long _
) As String