Again not sure..

Code:
Private Sub ComboBox1_Change()
    
    Dim lngIndex    As Long
    
    With Me.ComboBox1
        lngIndex = .ListIndex
        If Not lngIndex = -1 Then
            [e1]= .List(lngIndex)
        End If
    End With
    
End Sub