Deret Faktorial bilangan pada Visual Basic

Kawan2 ku sekalian yang bingung saat membuat program deret faktorial bilangan pada VB, mungkin source kode saya bisa menjadi sumber copas.. hheheheheh..
Tampilan programnya seperti berikut :

check this out !!

Private Sub Command1_Click()
Dim pertama As Integer

pertama = Text1.Text

i = 1
For j = 1 To pertama
i = i * j
Next

n = 0
For r = 1 To pertama
n = n + r
Next

Text2.Text = 1
Text3.Text = n
End Sub



Private Sub Command2_Click()
Unload Me

End Sub