Help!!!! Why Doesn't This Work?? Arghh!!!!

Can anyone tell me why this doesn't work????

VB Code:

Option Compare Text 
 
Sub Main
Dim objEmployee as MicrosoftCorp.Employee
 
    For Each objEmployee In Microsoft.Employees
        If objEmployee.fullName Like "Bill Gates" Then
            Call doPainfullDeath(objEmployee)
        Else
            Set objEmployee = Nothing
        End If
    Next
End Sub

Because his birth name isn't Bill. Besides, I'm not sure setting the other employees to nothing helps.

VB Code:

Option Compare Text 
 
Sub Main
Dim objEmployee as MicrosoftCorp.Employee
 
    For Each objEmployee In Microsoft.Employees
        If objEmployee.LastName Like "Gates" Then
            call doPainfullDeath(objEmployee)
        Else
            if !(ReTrain(objEmployee)) then Set objEmployee = Nothing
        End If
    Next
End Sub

I'm not sure what Bill's name is, so we will just have to do away with all the employees with the last name of Gates. :)

still doesn't work

I'm pretty sure it's William Jefferson Gates (his fornames he shares with Bill Clinton)

William Gates III