passing object to a subroutine

[nobenbien]

Hello,

I'm struggling with the next problem:

I made a Userform containing a textbox (textbox1) and Clickbutton.

I also created a classmodule (named checkinput).
This classmodule contains a subroutine Ispresent:

Sub ispresent(ByVal textbox As Msforms.textbox)
'code goes here
End Sub

The code for the userform contains a subroutine CommandButton1_Click:

Dim input As New checkinput
Private Sub CommandButton1_Click()
input.ispresent (textbox1)
End Sub

When i try to run the program i get an error message Error 424, Object required.

I don't know how to solve this problem.
Can anyone help me out.

Thx

 

[Richard Schollar]

Hi

Does it work if you remove the brackets:

input.ispresent textbox1

 

[Ruddles]

Just thinking out loud... can you pass an object by value? I thought you could only pass them by reference.

I've no idea why I thought that though...

 

[RoryA]

Yes, you can - look at any event routine that provides you with an object argument.

 

[Ruddles]

Oh yes... Microsoft must have changed that this morning!

 

[RoryA]

If you pass an object ByVal, you pass a copy of the pointer to the object (not a copy of the object itself), so you can alter the object but you can't change what the pointer points at.