vb的函数问题

Function func (X As Double) As Double
    us1 = Val(Text1.text)                 
    us2 = Val(Text2.text)
    as1 = Val(Text3.text)
    as2 = Val(Text4.text)
    
    func = (Exp(-1 * X) * Exp(-1 * Exp(-1 * ((us2 / us1) * Log(X) + (as2 - as1) / us1)))) ’此行报告 invalid procedure call or argument的错误，不知如何解决。
    
    End Function