Visual Basic (not "for Applications") message boxs

[Glory]

I knwo this doesn't quite belong in this forum, but I really need a solution as quick as I can get one, and I don't belong to any other forums like this one.

I'm trying to use a message box in a proprietary application that uses VB, but I get an error that says "Wrong number of parameters".

a = MsgBox (Err.Number, vbOkOnly, "Error #")

Help, anyone

 

[Glory]

I thought it was the msgbox statement, but it's the err statement. It works differently in VB than in VBA.

My night ends at 2 PST. Can anyone help me out with this?

 

[bertie]

According to this site the syntax for a VB message box is:
http://visualbasic.freetutes.com/learn-vb6/lesson18.html

MsgBox ( Prompt [,icons+buttons ] [,title ] )

From you error message it looks like you are missing the icon arguemnt, i.e.,
vbQuestion + vbOkOnly
vbCritical + vbOkOnly

Check your application help file for MsgBox Function.

NB
When you enclose a MsgBox arguments within parenthesis the value returned will be the number of the Button the user clicks. The variable receiving the argument has to of the appropriate data type.

[COLOR=darkblue]Sub[/COLOR] test1()
   [COLOR=darkblue]Dim[/COLOR] a [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]Long[/COLOR]
 
   a = MsgBox(Err.Number, vbInformation + vbOKOnly, "Error #")
 
   [COLOR=green]' a = vbOKOnly = 1[/COLOR]
   MsgBox "You clicked button: " & a
 
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]