Oppure
Function Fatt(n as long) as long dim i as long, ris as long ris=1 for i=2 to n ris = ris*i next i Fatt = ris End Function