Supongo que lo que quiere es una función donde mande el número (digamos 100) y que le regrese un X porcentaje o milcentaje (supongo que se refiere a base 100 0 1000). Sería una simple regla de 3:
Function Porcentaje(N1, N2, N3)
Porcentaje = (n1 * n2) / n3
End Function
Si no es eso .......... es que yo tampoco entendí