añadir imagen

[Koudelka]

El problema anterior ya lo solucioné, efectivamente eran de las referencias. El caso es que vuelvo a tener problemas en el siguiente código:

Private Sub Detalle_Format(Cancel As Integer, FormatCount As Integer)
If Nz(Me.firma, "") <> "" And Len(Dir(Me.firma)) > 0 Then
Me.imagenfirma.Picture = Me.firma
Else
Me.imagenfirma.Picture = ""
End If
End Sub

Si no añado nada al campo firma, me salta el error "13" diciendo que no coinciden los tipos. Hay alguna forma de que deje que ese campo pueda estar en blanco sin necesidad de añadir ninguna imagen?

EDIT:

Bueno ya lo he solucionado (aunque no me gusta el cómo) de la siguiente manera:

Private Sub Detalle_Format(Cancel As Integer, FormatCount As Integer)
If Nz(Me.firma, "") = "" Then
MsgBox "No has firmado el documento"
Else
If Nz(Me.firma, "") <> "" And Len(Dir(Me.firma)) > 0 Then
Me.imagenfirma.Picture = Me.firma
Else
Me.imagenfirma.Picture = ""
End If
End If
End Sub