I have a problem with a Procedure Declaration to capture a value in
variable when clicking a button in a Dialog Box. I’m pretty fluent i
VBA as such but I’ve hardly ever worked with Dialog Boxes.
I’m trying to pass the value of blnSwitch when clicking Commandbutton_
to Sub Status() and further to BaseRoutine().
Does anybody have a solution?

Milli

Sub BaseRoutine()
----
Call Status(blnSwitch)

Select Case blnSwitch

Case = ”1”

Do something 1

Case = ”2”

Do something 2

End Select

End Sub

Sub Status(blnSwitch as Boolean)
----
Call ShowForm(I guess this is where blnSwitch should be passed)

End Sub

Sub ShowForm()

MissingAnswersForm.Show

End Sub

Private Sub MissingAnswersForm_Initialize(vntReturnCriteria A
Variant)

Call BaseRoutine

End Sub

Private Sub CommandButton1_Click()

Unload Me
blnSwitch = ”1”

End Sub

Private Sub CommandButton2_Click()

Unload Me

End Su

--
Message posted from http://www.ExcelForum.com