Ошибка: ByRef argument type mismatch - VB

Формулировка задачи:

Всем привет, дотянула я ребят, завтра сдавать работу, не думала что при написании функции пользователя возникнет подобная ошибка-ByRef argument type mismatch, подскажите пожалуйста, как устранить проблему, я,увы, полный чайник,пыталась, поменять тип данных в аргументе не помогло...во вложениях прикрепляю задание и фото кода с выделенным местом ошибки. Спасибо заранее, кто отзовется!) вот кусок кода:

                    Листинг программы
                
 
                        
                          
                    
Function part(x As Single, i As Integer) As Single
part = x ^ i / i
End Function
Private Sub Command3_Click()
Dim i As Currency
n = InputBox("Введите число n")
x = n + 5: z = 1
eps = 1 * 10 ^ (-5)
i = 1: s = 0
Do While Abs(part(x, i)) >= eps
s = s + part(x, i) * z
z = -z: i = i + 1
Loop
Label6.Caption = CStr(x)
Label8.Caption = CStr(i)
Label7.Caption = CStr(s)
End Sub

Решение задачи: «Ошибка: ByRef argument type mismatch»

textual
                            Листинг программы 
                        
 x As Single, i As Integer