[Resolvido] Fatorial

[recapi 0]

Eu começei a apreder VB agora e to com duvida nesse codigo

Module Module1

   Sub Main()
       Dim Vetor(4) As Integer
       Dim i As Integer
       Dim cont As Integer

       While (i <= 4)
           Vetor(i) = Console.ReadLine()
           For cont = 1 To Vetor(i) Step 1
               Vetor(i) = Vetor(i) * cont
           Next
           Console.WriteLine("Vetor : " & Vetor(i))
           i += 1
       End While
       Console.ReadKey()
   End Sub
End Module

Pois o fatorial da um nurmero absurdo a partir do 3

alguem poderia me ajudar

[recapi 0]

Consigi resolver segue abaixo a soluçao

Module Module1
   Sub Main()
       Dim Vetor(4) As Double
       Dim Vetor2(4) As Double
       Dim i As Integer
       Dim cont As Integer
       While (i <= 4)
           Vetor(i) = Console.ReadLine()
           For cont = 1 To Vetor(i) - 1 Step 1
               Vetor(i) = Vetor(i) * cont
           Next
           Vetor2(i) = Vetor(i)
           i += 1
       End While
       i = 0
       While (i <= 4)
           Console.WriteLine("Vetor 2 : " & Vetor2(i))
           i += 1
       End While
       Console.ReadKey()
   End Sub
End Module