Comparing a value of concantenation of strings against a string

[seph2004]

I am trying to compare the value of the concantenation of the port_val variable without quotes so it reads similar: s_1_0_2.value . This so happens to be an objectname in the userform:

Function forty_eight_port()
'Populate data for 48 Port Switch:'
interface = 1

port_count = 48
For p = 1 To port_count

port_val = "s" & stack & "_0_" & interface & ".value"
vlan_val = "vlan" & stack & "_0_" & interface & ".value"
If port_val = "Business" Then
portslot = portslot + 1
Range("D" & portslot) = vlan_val & ", 201"
Range("E" & portslot) = "User/Phone"
ElseIf port_val = "Process" Then
Range("D" & portslot) = vlan_val
Range("E" & portslot) = "Reserved for Process"
ElseIf port_val = "Access Point" Then
flex_val = "flex" & stack & "_0_" & interface & ".value"
    If flex_val = "False" Then
    Range("D" & portslot) = "105"
    Range("E" & portslot) = "Reserved for AP"
    Else
    Range("D" & portslot) = "105,282-287"
    Range("E" & portslot) = "Reserved for FlexAP"
    End If
End If
interface = interface + 1
Next p
End Function

Any ideas?