Substituting a string var for a named constant

[Michael Kizer]

OK, I am probably overlooking something really simple here, but...
Here is something similar to want I want to do:

Dim strMsg As String
Dim strTitle As String
Dim strOptions As String
Dim intReturn As Integer

strTitle = "Test"
strMsg = "blah blah blah"
strOptions = "vbOKCancel + vbExclamation"

intReturn = MsgBox(strMsg, strOptions, strTitle)


How can I get the string strOptions to be interpreted as:
vbOKCancel + vbExclamation
and not:
"vbOKCancel + vbExclamation" <- which of course causes a type mismatch error.

Thx,

[HeSaidJoe]

strOptions = "vbOKCancel" & " + " & "vbExclamation"

[Kurian]

I don't know if this would help, but I've run into simular situations with passing variables into statements that require a vb constant.. The work around I'd suggest is using a select case for it... ie:

Dim strMsg As String
Dim strTitle As String
Dim strOptions As String
Dim intReturn As Integer

strTitle = "Test"
strMsg = "blah blah blah"
select case strOptions

     "vbOkCancel + vbExclamation"
      intReturn = MsgBox(strMsg, vbOkCance + vbExclamation, strTitle)

End select

Now this would be if you didn't hard code the strOptions, but if you were actually passing that variable into this function/sub and it were going to change... You could just stick the possibilities into the case statement and pass it that way..

Hope this helps, if there is another way lemme know!

[Nitro]

Are you trying to combine the two? Because if that is the case, you need to drop the quotes. Keep in mind, anything with a lowercase prefix of "vb" such as vbOKCancel is a reserve word.

intReturn = MsgBox(strMsg, vbOKCancel + vbExclamation, strTitle)

[HeSaidJoe]

'sorry, I misread your question 1st. time
'this will work for what you want.

Private Sub Form_Load()

    Dim strMsg As String
    Dim strTitle As String
    Dim intReturn As Integer
    
    Const strOptions = vbcancel + vbExclamation
    
    strTitle = "Test"
    strMsg = "blah blah blah"
    
    intReturn = MsgBox(strMsg, strOptions, strTitle)

End Sub

[kedaman]

As a rule:
Always use OR when you add flags

intReturn = MsgBox(strMsg, vbcancel OR vbExclamation, strTitle)

[Michael Kizer]

hmmm... not exactly what I had in mind...
The problem is that I am building the string var containing the named constants, dynamically. There could be hundreds of different combinations of them contained in the string. Once I have the string in the format I want, ie:
"vbOKCancel + vbExclamation + vbSystemModal + vbDefaultButton1" <- Or what ever...

Is there a way to make VB substitute the contents of the variable in the MsgBox function call, instead of trying to process the variable as a string var (which is illegal since that paramter of the function requires a numeric expression?

[kedaman]

Sounds like you want to build a script,

You could do this

If string  like "*vbOKCancel*" then Result=Result Or vbOKCancel
If string  like "*vbExclamation*" then Result=Result Or vbExclamation
If string  like "*vbSystemModal*" then Result=Result Or vbSystemModal
...

Which means you pass the Result (which is a integer) to the Msgbox