Excel - error 13 No coinciden los tipo

Private Sub tir_Change()

Dim v_iva As Double

Dim iva As Double

v_iva = tir

iva = (v_iva * 22) / 100

iva_tir = iva

End Sub

Private Sub tir_Change()

  If Not IsNumeric(tir) Or tir < 0 Then

     MsgBox "El IVA debe ser un numérico mayor o igual a cero", vbCritical, "Revisar valor"

     Exit Sub

  End If

 'tu código

End Sub

Private Sub tir_Change()

On Error GoTo Salir

  'tu código

   Exit Sub

Salir:

  MsgBox "El IVA debe ser un numérico mayor o igual a cero", vbCritical, "Revisar valor"

End Sub