无法调用自定义函数function

10402101

求助，在EXCEL中插入模块，在模块中添加以下代码
Function wairc(s)            
    Const a = 1.318833916
    Const b = 3.013033538 * 10^ - 5
    Const c = 2.118193603 * 10^ - 7
    Const d = -1.746100764 * 10^ - 10
    Const e = 5.863147549 * 10^ - 14
    Const f = -7.336922936 * 10^ - 18
    wairc = (a + b * s + c * s^(2) + d * s^(3) + e * s^(4) + f * s^(5))      
End Function
在A3单元格中输入=wairc(45)，提示”类型声明字符与声明的数据类型不符“，不知道哪出了问题，请各位大大帮帮忙!!!

10402101

这是原文件

shenjianrong163

Function wairc(ByVal s As Single)

shenjianrong163

1. Function wairc(ByVal s As Single)
   
2.     Const a = 1.318833916
   
3.     Const b = 3.013033538 * 10 ^ -5
   
4.     Const c = 2.118193603 * 10 ^ -7
   
5.     Const d = -1.746100764 * 10 ^ -10
   
6.     Const e = 5.863147549 * 10 ^ -14
   
7.     Const f = -7.336922936 * 10 ^ -18
   
8.     wairc = (a + b * s + c * s ^ (2) + d * s ^ (3) + e * s ^ (4) + f * s ^ (5))
   
9. End Function

复制代码