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

Формулировка задачи:

Поймите меня правильно! Мне реально больше не у кого спросить и негде прочитать! Купил уже около 10 книг по Visual Basic но на этот вопрос не нашёл ответа ни в одной! MSDSN тоже не очень помог... Чё-то я ваще реально не въезжаю! А чё значит в этом коде Not? В MSDSN написанно что это оператор логического отрицания и чё-то типа этого: "результат = Not выражение" и вот такая табличка: Выражение Результат True False False True Null Null А что значит в нижеприведённом коде Not found? Получается так(?): Not found= found ( сначала found равнялась true(например), а потом стала false???), и тогда какой смысл в If Not found Then? Ведь в любом случае значение переменной found перевернётся??? Вообще нижеприведённый код работает, но пожалуйста если нетрудно помогите начинающему программеру и особенно прошу Alexey Spirin, не судите строго(!) если мой вопрос в очередной раз покажется Вам верхом тупости просто если Вас не затруднит подскажите, плиз! Зарание спасибо за внимание!

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

Решение задачи: «Помогите разобраться с кодом»

textual
                            Листинг программы 
                        

                            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
                        