Hi,

My function Def is as follows:

Code:
Private Sub Extract(ByVal n As Integer, ByVal m As Integer, ByRef a As Double, ByRef b As Double, ByRef c As Double)


a= 100
b= 200
c= 300

End Sub
I have used the following decl and it is returns null values in Textbox1,2 & 3, where as I expected 100,200 & 300 respectively..


Code:
Extract(CInt(Val(textbox5.Text)), CInt(Val(textbox6.Text)), CDbl(textbox1.Text), CDbl(textbox2.Text), CDbl(textbox3.Text))
Please help...