Cuadro de dialogo de error doble

Tengo echo este evento al no haber datos en un campo y sale bien pero me sale 2 veces el mismo mensaje como evito esto y que solo me salga una vez?.

Gracias

If IsNull(Me.Texto27) Then
MsgBox "no existen datos de compras", vbInformation + vbOKOnly, "sin datos en compras"
End If