Calcular factorial [VB 2005]

¿Cómo calcular el factorial de "X" número en VB 2005?

1. Creamos dos TextBox los cuales nombraremos "TxtNumero" y "TextResultado", y un botón que nos permita calcular nuestro factorial, al cual llamaremos "BtnCalcular". Estos con sus correspondientes Labels

2. Hacemos Doble Click en nuestro botón calcular e ingresaremos a nuestro querido código


Private Sub BtnCalcular_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCalcular.Click

'Definimos nuestras variables

Dim fact as Long
Dim num as Integer
Dim i as Integer

'Inicializamos nuestras variables

num =  TxtNumero.Text
fact = 1

' Recordemos que el factorial de 0 es igual a 1, por lo cual usaremos un "IF" para este caso
         If num = 0 Then
            TxtResultado.Text = 1
'Si nuestro caso no es el anterior, lo calculamos con lo siguiente
        Else
            For i = 1 To num
                fact = fact * i
            Next i
        End If
        TxtResultado.Text = fact
    End Sub

 Y listo!, Tenemos nuestro codigo que nos permitirá calcular Factoriales :D