这个程序怎么才能不会溢出。

Private Function m(n As Double) As Double
Dim i As Double, f As Double
f = 1
For i = 1 To n
f = f * i
Next
m = f
End Function
Private Sub Command1_Click()
Dim n As Integer, i As Double, x As Double
Show
n = Val(Text1.Text)
For i = 1 To n
     x = x + m(i) / (i + 2)
Next
Print x
End Sub