Yardım Arama sonucu 0 (sıfır) yerine belirlenen metnin yazması

Sayın hocalarım şöyle ki. bir sorunum var. Umarım yardımcı olursunuz.

Userformumda bulunan bir textbox aşağıda ki kod ile STOK isimli excel sayfamda ki Z sütunda arama yapıp formüle göre en son tarihte aldığı değeri bulup textbox ekranında gösteriyor.

' *************** TextBox16 EN SON ALINAN FİRMA ***************
Set s1 = Sheets("STOK")
son = s1.Cells(Rows.Count, "B").End(3).Row
sat = WorksheetFunction.Match(ListBox1.Value, s1.Range("B1:B" & son), 0)
TextBox16.Text = s1.Cells(sat, "Z")


STOK isimli excel sayfamda ki Z hücrelerinin hepsinde aşağıda yazdığım kod var. Bu kodu yerleştirdiğim her Z hücresi kendi satırında ki B hücresinde ki değeri, GİREN ÜRÜN isimli sayfada ki F sutunun da bulup, bulduğu hücrenin satırında ki C hücresinde bulunan değeri STOK isimli excel sayfamda formülün gömülü olduğu Z hücresinde gösteriyor.

=EĞERHATA(ARA(2;1/('GİREN ÜRÜN'!$F$2:$F$15246=B1713);'GİREN ÜRÜN'!$C$2:$C$15246);0)



Uzun lafın kısası hepsi bir bine bağlı. Stok isimli sayfada ki kod Giren ürün sayfasında bir değer bulamayınca formül gereği sıfır yazıyor. Dolayısıyla userformda ki textbokta sıfır yazıyor.

Yapmak istediğim şu hem Stok isimli sayfada ki Z hücresinde hem de userformum da ki textboxda değer bulunamadığı durumlarda 0 yerine HİÇ ALINMAMIŞ yazması.
Yardımlarınız için şimdiden teşekkür ederim.