Combobox - event ved return

' ---------------------------- Form1 ----------------------------
' Style på din ComboBox skal være: [0 - Dropdown Combo]
' ---------------------------------------------------------------
Option Explicit

Private Sub Combo1_Click() ' <- Combo1
  MsgBox Combo1.Text
End Sub

Private Sub Combo1_KeyPress(KeyAscii As Integer) ' <- Combo1
  If KeyAscii = 13 Or KeyAscii = 9 Then ' Enter = 13 : Tab = 9
    If IsNumeric(Combo1.Text) Then
      Call Combo1_Click ' <- Combo1 click
        Else
      Combo1.Text = ""
    End If
  End If
End Sub

Private Sub Form_Load()
Dim i As Integer
  With Combo1 ' <- Combo1
      .Text = ""
      For i = 1 To 25
        .AddItem i
      Next
  End With
End Sub
' ---------------------------- Form1 ----------------------------