Ошибка при выполнении операции Mod - VB

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

Здравствуйте. У меня возникла проблема при выполнении операции Mod с большими числами. Допустим у меня есть такой простейший код:

Private Sub Command1_Click()
f = 25
v = 41
s1 = f ^ 31 Mod v
Print s1
End Sub

В этом случае выдаётся ошибка: run-time error '6': Overflow. Если же заменить числа на небольшие, то всё считает нормально. Подскажите, пожалуйста, что не так.

Решение задачи: «Ошибка при выполнении операции Mod»

textual
                            Листинг программы 
                        

                            Public Function rMod(ByVal Op1 As Double, ByVal Op2 As Double) As Double                ' Возвращает остаток от деления одного указанного числа на другое указанное число.
    rMod = Op1 - Op2 * Fix(Op1 / Op2)
End Function
                        