¿Cómo insertar una imagen dependiendo del valor de una celda, la cual tiene una formula?

Hola muy buen día a todos.

Estoy tratando de hacer que una imagen cambie dependiendo del valor de una celda, revisando el foro encontré este código:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ruta As String
On Error Resume Next
If Target.Address = "$H$12" Then
nombre = Target.Value
Ruta = "C:\certificados\" & nombre & ".jpg"
If Existe(Ruta) Then
'Existe el archivo
ActiveSheet.Image1.Picture = LoadPicture(Ruta)
Else
'No existe el archivo
ActiveSheet.Image1.Picture = LoadPicture("C:\certificados\nodisponible.jpg")
End If
End If
End Sub
Function Existe(Archivo As String) As Boolean
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(Archivo) Then
Existe = True
Else
Existe = False
End If
End Function

El cual resolvió en gran parte mi dilema, sin embargo lo que ahora trato de hacer es que la celda H12, contenga una formula, es decir, que cambie de acuerdo al resultado de una formula.

Pongo un ejemplo:

H12: =SI(B1<0,"Imagen1",SI(B1=0,"Imagen2",SI(B1>0,"Imagen3")))

Pero el código anterior obviamente toma por datos la formula y no el resultado, sabiendo que ustedes son todos unos expertos solicito su ayuda para saber si se puede tomar el resultado de alguna manera o si mejor busco otro método.

Gracias de antemano.