【VB作业求助】做阶层函数，为什么下一个N出不来？

第一个N要求是1，接下来按一次按钮往下增加一个N，可是我的按了按钮也一直停留在1，求问是哪里有问题，感谢
Dim RY_n, RY_fac As Byte
RY_n = RY_n + 1
RY_txt_n.Text = RY_n
RY_txt_nFac.Text = RY_fac
If (RY_n = 1) Then
RY_fac = 1
Else
RY_fac = RY_n * RY_fac
End If
RY_txt_n.Text = RY_n
RY_txt_nFac.Text = RY_fac