Soru hata verme yerine

[yamahato]

Merhaba
Desteklerinizle geliştirmeye devam ettiğim minik programımda bir sorun var.
Şöyle ki,
Aşağıda ki koda nasıl bir eklenti yapmalıyım ki aranan değer " STOK " sayfasında i bulamadığı için veya tür uyuşmazlığı olduğundan hata vermesi yerine TextBox3 'te belirlenen mesaj çıksın.

Set s1 = Sheets("STOK")
son = s1.Cells(Rows.Count, "B").End(3).Row
sat = WorksheetFunction.Match(ListBox1.Value, s1.Range("B1:B" & son), 0)
TextBox3.Text = s1.Cells(sat, "I")
End Sub

 

[Orion1]

Buyurun.

Dim k As Range
Set s1 = Sheets("STOK")
son = s1.Cells(Rows.Count, "B").End(3).Row
Set k = s1.Range("B1:B" & son).Find(ListBox1.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    TextBox3.Text = s1.Cells(k.Row, "I")
    Else
    TextBox3.Value = "Bulunamadı."
    Exit Sub
End If