Получение значения при выборе в ComboBox

Private Sub ComboBox1_DropButtonDBLClick()
If ActiveCell <> "" Then
ComboBox1 = ActiveCell
Else
ActiveCell = ComboBox1.Value
End If
End Sub
 
'Private Sub ComboBox1_Click()
'    ActiveCell = ComboBox1.Value
'    Unload UserForm1
'End Sub
 
Private Sub ComboBox1_Change()
Dim x, i As Long, txt As String, lt As Long, s As String
If Len(ComboBox1.Text) = 0 Or bu = True Then Exit Sub
 txt = ComboBox1.Text: lt = Len(ComboBox1.Text)
 x = Sheets("База данных").Columns(1).SpecialCells(2).Value
 For i = 1 To UBound(x, 1) 'поиск по любому вхождению
 If InStr(x(i, 1), txt) Then s = s & "~" & x(i, 1)
Next i
ComboBox1.List = Split(Mid(s, 2), "~")
ComboBox1.DropDown
 
End Sub
 
Private Sub ComboBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If (KeyAscii = 27) Then ' если нажат еск тогда форма закрывается
    Me.Hide
    End If
End Sub
 
Private Sub CommandButton1_Click()
    ActiveCell = ComboBox1.Value
    Unload UserForm1
End Sub

Private Sub ComboBox1_Change()
Dim x, i As Long, txt As String, lt As Long, s As String
If Len(ComboBox1.Text) = 0 Or bu = True Then Exit Sub
 txt = ComboBox1.Text: lt = Len(ComboBox1.Text)
 x = Sheets("База данных").Columns(1).SpecialCells(2).Value
 For i = 1 To UBound(x, 1) 'поиск по любому вхождению
 If InStr(x(i, 1), txt) Then Me.ComboBox1.AddItem x(i, 1)
Next i
ComboBox1.DropDown
End Sub