MsgBox problem

[IanC]

I have a problem with the following code:

Private Sub CommandButton2_Click()
Msg = "In Service Settings select Bone Fluoro." & Chr(13) & _
"If value of Filter > NR > 1 on Dose 1 tab is 6, " & _
"set MTS=2.16 otherwise set MTS=2.15"
Style = vbOKOnly
Title = "Which MTS table?"
MsgBox (Msg, Style, Title)
End Sub

With the MsgBox line, if I only specify Msg, everything is OK. If I try to
specify any other parameter, I get a compile error stating that and equals
sign is expected.

I've tried MsgBox(Msg, , Title) as well, but with no change.
I've also tried MsgBox("Msg", , "Title") and MsgBox(Msg, vbOKOnly, Title). I
know this wouldn't show the message & title I need, but I wondered if there
was some problem with my actual message to cause this problem.

I could incorporate the title text within the message, but that defeats the
object of the function allowing a title to be specified.

Any ideas why this isn't working? As far as I can tell from VBA Help there
are no errors in my syntax, but as usual I could be wrong!

 

[James Ravenswood]

I have a problem with the following code:

Private Sub CommandButton2_Click()
Msg = "In Service Settings select Bone Fluoro." & Chr(13) & _
    "If value of Filter > NR > 1 on Dose 1 tab is 6, " & _
    "set MTS=2.16 otherwise set MTS=2.15"
Style = vbOKOnly
Title = "Which MTS table?"
MsgBox (Msg, Style, Title)
End Sub

With the MsgBox line, if I only specify Msg, everything is OK. If I try to
specify any other parameter, I get a compile error stating that and equals
sign is expected.

I've tried MsgBox(Msg, , Title) as well, but with no change.
I've also tried MsgBox("Msg", , "Title") and MsgBox(Msg, vbOKOnly, Title).. I
know this wouldn't show the message & title I need, but I wondered if there
was some problem with my actual message to cause this problem.

I could incorporate the title text within the message, but that defeats the
object of the function allowing a title to be specified.

Any ideas why this isn't working? As far as I can tell from VBA Help there
are no errors in my syntax, but as usual I could be wrong!

Hi Ian:

In this case MsgBox needs a place for the retrun:


Sub one()
Dim ret
msg = "In Service Settings select Bone Fluoro." & Chr(13) & _
"If value of Filter > NR > 1 on Dose 1 tab is 6, " & _
"set MTS=2.16 otherwise set MTS=2.15"
Style = vbOKOnly
title = "Which MTS table?"
ret = MsgBox(msg, Style, title)
End Sub

 

[Paul Robinson]

Hi
Unless you are trying to capture the value of the MsgBox use
MsgBox Msg, Style, Title

with no brackets.
If you want to store the return value in a variable use

MyValue = MsgBox(Msg, Style, Title)

regards
Paul

 

[IanC]

Thanks Paul & James.

It looks like this is one of those Excel oddities. It's odd that it will
work as I had it with just the message, but not when trying to specify a
title as well.

Both your solutions work and I've opted for the non-bracketed approach.

--
Ian
--

Hi
Unless you are trying to capture the value of the MsgBox use
MsgBox Msg, Style, Title

with no brackets.
If you want to store the return value in a variable use

MyValue = MsgBox(Msg, Style, Title)

regards
Paul