Private
a
As
String
Private
b
As
String
Private
c
As
String
Private
Sub
FillComboBox(a, b, c)
ComboBox1.AddItem a
ComboBox1.AddItem b
ComboBox1.AddItem c
End
Sub
Private
Sub
ComboBox1_GotFocus()
a =
"Text1"
b =
"Text2"
c =
"Text3"
Call
FillComboBox(a, b, c)
End
Sub
Private
Sub
ComboBox1_Change()
Select
Case
Me
.ComboBox1.Value
Case
a:
Call
M1
Case
b:
Call
M2
Case
c:
Call
M3
End
Select
End
Sub
Private
Sub
M1()
Call
MsgBox(
"Bin in M1()"
, vbOKOnly)
End
Sub
Private
Sub
M2()
Call
MsgBox(
"Bin in M2()"
, vbOKOnly)
End
Sub
Private
Sub
M3()
Call
MsgBox(
"Bin in M3()"
, vbOKOnly)
End
Sub