Factorial de un numero Visual Basic

Este trozo de codigo nos da el factorial de un numero y nos sirve para cualquier version de Visual Basic o de algun otro lenguaje con estructura similar.

Sub Factorial ()

a = Int(txtscreen.Text)
'a se pasa entero porque los factoriales no pueden contener decimales
b = 1

If a = 0 Then
b = 0
Else
If a = 1 Then
b = 1
Else
For i = 1 To a
b = b * i
Next
End If
End If

txtfactorial.text = b
End Sub