Visual Basic - error 13 visual basic

Sub GuardarInformacion()

    Rem declaración de variantes

    Dim contFila As Long

    Dim hoja As Worksheet

    Set hoja = Worksheets(3)

    ' Validamos que los campos de texto correspondiente a los datos de clientes esten diligenciados totalmente

If Trim$(txtNombre.Text) = Empty Or Trim$(txtApellido.Text) = Empty Or Trim$(txtEmail.Text) Then

        MsgBox "Por favor ingrese todos los datos!", vbCritical, "Datos Incompletos"

        Exit Sub

    End If

    ' validamos la fila siguiente en la hoja donde se debe ingresar los datos

    contFila = hoja.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

    hoja.Cells(contFila, 1).Value = Me.txtNombre.Value

    hoja.Cells(contFila, 2).Value = Me.txtApellido.Value

    hoja.Cells(contFila, 3).Value = Me.txtEmail.Value

    'se limpia o borra los datos de los campos de texto del formulario

    Me.txtNombre.Value = ""

    Me.txtApellido.Value = ""

    Me.txtEmail.Value = ""

        ME DICE ERRO 13 -  OPCION DEPURAR -  Y ME LLEVA AL APARTADO EN NEGRITA, DONDE ESTA EL "IF" OSEA EL CONDICIONANTE

End Sub

If Trim$(txtNombre.Text) = Empty Or Trim$(txtApellido.Text) = Empty Or Trim$(txtEmail.Text) = Empty Then