'Visual Basic I can't Pass 2 value

I'm making Macros and I got this Erorr where I can't Pass 2 value

Public Sub sada(ByRef TxtL As Double, ByRef TxtW As Double)
End Sub

Public Sub Create_Click()
    Dim SadaClient As New SadaClass
    SadaClient.sada(txtlen,txtwid)
End Sub

enter image description here

vba


Sources

This article follows the attribution requirements of Stack Overflow and is licensed under CC BY-SA 3.0.

Source: Stack Overflow

Solution Source