Помогите разобраться с кодом

Option Explicit
 
Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
   Dim found As Boolean: Dim i As Integer
   Combo1.Text = Trim(Combo1.Text)
   found = False: i = 0
   Do While (i < Combo1.ListCount) And Not found
      If Combo1.List(i) = Combo1.Text Then
         found = True
      Else
         i = i + 1
      End If
   Loop
   If Not found Then
      Combo1.AddItem (Combo1.Text)
      MsgBox "В список добавлен элемент " + Combo1.Text
   End If
End If
End Sub

Private Sub Combo1_KeyPress(KeyAscii As Integer)
' если нажали ентер
If KeyAscii = 13 Then
Dim found As Boolean: Dim i As Integer
' убираем пробелы в тексте комбобокса
Combo1.Text = Trim(Combo1.Text)
' обнуляем переменные
found = False: i = 0
' цикл пока не пройдем все строки и found НЕ = true
Do While (i 
' если строка списка равна тексту, то
If Combo1.List(i) = Combo1.Text Then
' изменяем found
found = True
' иначе
Else
' переходим к следующей строке
i = i + 1
' конец проверки строки
End If
' конец цикла
Loop
' если прошли весь цикл и found всеравно фальш
' тоесть нет в списке такой строки
If Not found Then
' добавляем строку в список
Combo1.AddItem (Combo1.Text)
' сообщаем об этом
MsgBox "В список добавлен элемент " + Combo1.Text
' конец проверки 
End If
' конец проверки нажатой клавиши
End If
' конец процедуры
End Sub

Combo1.AddItem (Combo1.Text)
MsgBox "В список добавлен элемент " + Combo1.Text

Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim found As Boolean: Dim i As Integer
Combo1.Text = Trim(Combo1.Text)
found = True: i = 0
Do While (i < Combo1.ListCount) And found
If Combo1.List(i) = Combo1.Text Then
found = False
Else
i = i + 1
End If
Loop
If found Then
Combo1.AddItem (Combo1.Text)
MsgBox "В список добавлен элемент " + Combo1.Text
End If
End If
End Sub