Ciao,
puoi provate una cosa del tipo:
Function CalcolaFattoriale(ByVal numero As integer) As integer
If numero <= 1 Then
Return 1
Else
Return numero*CalcolaFattoriale(numero - 1)
End If
End Function
Nel tuo codice basta che richiami la funzione passandogli il numero da fattorializzare.
Ciao