Excel VBA Object Helper Function - vba

Question

I have a UserForm where one of my ComboBox's can have different values depending on other variables that the user has selected. Rather than update the contents of a single ComboBox every time the user makes a change, I have created two ComboBox's and simply set the appropriate one as visible. These two ComboBox's have the names "width1_cb" and "width2_cb" respectively.
I have created a helper function to return the currently active ComboBox so that other pieces of my code can use it. Here is the helper function:
Function myGetActive(ByVal control As String) As ComboBox
If control = "width" Then
If width1_cb.Visible = True Then
Set myGetActive = Me.width1_cb
ElseIf width2_cb.Visible = True Then
Set myGetActive = Me.width2_cb
Else
Set myGetActive = Nothing
End If
End If
End Function
Unfortunately, this function is not functioning as expected. I have another line of code:
Set currentWidth = myGetActive("width")
currentWidth.Value = 5
which fails on the second line. I cannot figure out what I am doing incorrectly here - my best guess is that I am somehow not returning the actual combobox instance in my helper function but instead some sort of copy, but in my research I have not been able to figure out the correct way to accomplish this. Does any one know how I can make this function work as expected?
Update: Debugging efforts I have taken including stepping through the code line-by-line and putting a "watch" within the "myGetActive" function on both the width1_cb and the myGetActive variables. What I find is that the myGetActive variable gets set to type "ComboBox/Combobox" while the width1_cb is "Object/Combobox". What's more, the context for width1_cb is "Input_Window.UserForm_Initialize" while the context for the myGetActive is "Input_Window.myGetActive". The function does exit without any errors though.

Answer 1

Initially I just wanted to make a comment about 2 distinct ways for declaring variables:
Private currentWidth As ComboBox
or
Private currentWidth As MSForms.ComboBox
but I can't duplicate the issue you're having. Here is the code I tested with
Option Explicit
Private currentWidth As ComboBox
'Private currentWidth As MSForms.ComboBox
Private Sub UserForm_Click()
testCombos
End Sub
Private Sub UserForm_Initialize()
With Me.width1_cb
.AddItem "test1"
.AddItem "test2"
.AddItem "test3"
End With
With Me.width2_cb
.AddItem "test1"
.AddItem "test2"
.AddItem "test3"
End With
End Sub
Private Sub testCombos()
Set currentWidth = myGetActive("width")
currentWidth.Value = 5
Set currentWidth = myGetActive(vbNullString)
currentWidth.Value = 7
End Sub
Function myGetActive(ByVal control As String) As ComboBox
If control = "width" Then
If width1_cb.Visible = True Then
Set myGetActive = Me.width1_cb
ElseIf width2_cb.Visible = True Then
Set myGetActive = Me.width2_cb
Else
Set myGetActive = Nothing
End If
Else
If width2_cb.Visible = True Then
Set myGetActive = Me.width2_cb
ElseIf width1_cb.Visible = True Then
Set myGetActive = Me.width1_cb
Else
Set myGetActive = Nothing
End If
End If
End Function
.