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

[spetnik]

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

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