User Form option Buttons

[rpaulson]

Code on my user form

Private Sub CommandButton1_Click()
Select Case True
   Case OptionButton1
      boption = 1
   Case OptionButton2
      boption = 2
   Case OptionButton3
      boption = 3
End Select
Unload FB_Options
End Sub

Code in my module

...
FB_Options.Show
MsgBox (boption)
...

how do I get the boption value into my vba code so I can use it later?

Thnaks,

Ross

 

[Smitty]

I'd declare boption as a Public variable in a standard module.

HTH,

 

[rpaulson]

?
I tried
Public boption As Integer
but no luck

If there is a better method i'll try it.

 

[Smitty]

This works for me:

<font face=Calibri><SPAN style="color:#00007F">Public</SPAN> boption <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN><br><br><SPAN style="color:#00007F">Sub</SPAN> foo()<br>    FB_Options.Show<br>    MsgBox (boption)<br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

 

[Rasm]

code in userform

Call nameofsub(boption)

code in module1

Private Sub nameofsub(boption)
    msgbox "Value=" & boption
end sub