passing variable to sub not working

[tractorvix]

Hi all,

I'm sure I'm missing something really simple here, but it's absolutely foxing me.

I'm trying to pass a couple of values to a function to give me the option of looping. It works fine if I pass one string using the following:

Private Function SendMsg(msg As String)
MsgBox msg
End Function

Private Sub Command0_Click()
Sendmsg ("This is a test")
End Sub


But when I amend the function to 2 inputs:
Private Function SendMsg(msg As String, title As String)
MsgBox msg,,Title
End Function

and update the Command0_Click to:
Private Sub Command0_Click()
Sendmsg ("This is a test", "This is a title")
End Sub

I get a compile error 'Expected:="

I've tried MS help, but it's really not that useful!

Thanks
Vicky

 

[PHV]

Replace this:
Sendmsg ("This is a test", "This is a title")
with either this:
Call Sendmsg ("This is a test", "This is a title")
or this:
Sendmsg "This is a test", "This is a title"

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[MajP]

Buried in the the helpfile, here is why.

You are not required to use the Call keyword when calling a procedure.
1)However, if you use the Call keyword to call a procedure that requires arguments, argumentlist must be enclosed in parentheses.

2)If you omit the Call keyword, you also must omit the parentheses around argumentlist.

3)If you use either Call syntax to call any intrinsic or user-defined function, the function's return value is discarded.

 

[tractorvix]

I suspected it would be something ridiculous simple that I was missing.

Thanks for your help guys.

Vicky

 

[Golom]

And why is it a Function rather than a Sub?

You are not returning anything for the Function Name.