Saber si un Evento Existe

Estimados amigos

Tengo una aplicación que escribe en el visor de sucesos
sus propias entradas.
Cuando inicia la aplicación quiero saber si existe el
evento o el tipo de evento en cuestión pero me siempre me
da error.

Si el evento existe, me dice que no existe (he probado a
poner el NOT en el IF y el resultado es el mismo)
y si no existe me dice que si existe.

El codigo que tengo es el siguiente, como lo puedo
solucionar. Gracias.


Public Function comprueba_event()
If Not EventLog.SourceExists("Copia de logs",
System.Environment.MachineName) = False Then
MessageBox.Show("No existe Evento. Se va ha
proceder a la creación del Origen del Suceso" & vbCrLf
& "y del lugar donde guardarlo.", "Copia Logs",
MessageBoxButtons.OK, MessageBoxIcon.Information)
EventLog.CreateEventSource("Copia
Logs", "Copia Logs", System.Environment.MachineName)
Else
MessageBox.Show("Existe Evento")
End If
End Function