Simplemente debes incluirla en la página, ya sea así:
Código:
Function PrimeraEnMayusculas(cadena)
PrimeraEnMayusculas = UCase(Left(cadena, 1)) & LCase(Right(cadena, Len(cadena) - 1))
End Function
O bien a través de un include.
Luego le pasas la función al texto que quieras, de la misma forma como lo haces con Ucase (puedes sustituir Ucase, por PrimeraEnMayusculas, en aquellas lineas donde tengas que cambiar la primera inicial en mayúsculas).
Salu2