Ошибка в расчете теоремы Пифагора - VBA

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

написал функцию вычисляющию по теорему пифагора пишет синтаксис eror

Public  Function    Пифагор (a  As  Single, b   As Single)  ‘аргументы а и b вещественные Пифагор = Sqr(a ^ 2 + b ^ 2)
 
End Function

Решение задачи: «Ошибка в расчете теоремы Пифагора»

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

                            Public Function Пифагор(a As Double, b As Double)           'аргументы а и b вещественные
  Пифагор = Sqr(a ^ 2 + b ^ 2)
End Function
                        