Help Me Evaluate This Value In My UserForm

[drmingle]

I am not sure why this is not working, but my objective is to simply evaluate the following:

If Me.Ncb.Value (the value from my userform) is present then
MyIMPBucket = Me.Ncb.Value
MYHCDBucket = Me.Ncb.Value

Private Sub Ncb_Change()
If (Me.Ncb.Value) Like "*" Then
 
    MyIMPBucket = Me.Ncb.Value
 
    If MyIMPBucket = "Actual charges" Then
        MyIMPBucket = "ImpActl"
        If MyIMPBucket = "B1" Then
        MyIMPBucket = "Implants B1 Dollars"
        If MyIMPBucket = "B2" Then
        MyIMPBucket = "Implants B2 Dollars"
    End If
    End If
    End If
 
End If
If (Me.Ncb.Value) Like "*" Then
 
    MyHCDBucket = Me.Ncb.Value
 
    If MyHCDBucket = "Actual charges" Then
        MyHCDBucket = "DActl"
        If MyHCDBucket = "B1" Then
        MyHCDBucket = "Drugs B1 Dollars"
        If MyHCDBucket = "B2" Then
        MyHCDBucket = "Drugs B2 Dollars"
    End If
    End If
    End If
 
End If
End Sub

Thanks for the help!

 

[tigeravatar]

Something like this?

Private Sub Ncb_Change()
    
    Dim MyIMPBucket As String
    Dim MyHCDBucket As String
    
    If Trim(Me.Ncb.Text) <> vbNullString Then
        
        Select Case Trim(Me.Ncb.Text)
            
            Case "Actual charges": MyIMPBucket = "ImpActl"
                                   MyHCDBucket = "DActl"
            
            Case "B1":             MyIMPBucket = "Implants B1 Dollars"
                                   MyHCDBucket = "Drugs B1 Dollars"
            
            Case "B2":             MyIMPBucket = "Implants B2 Dollars"
                                   MyHCDBucket = "Drugs B2 Dollars"
            
        End Select
        
        'Here is where you perform operations with
        'the variables MyIMPBucket and MyHCDBucket
        MsgBox "MyIMPBucket: " & MyIMPBucket & Chr(10) & _
               "MyHCDBucket: " & MyHCDBucket
        
    End If
    
End Sub

 

[drmingle]

Perfect solution...