Veri Çekme İşleminin Detayları

Merhaba
Kısaca söyle yazayım textBox 1 de bir arama kodum VAR. Bu kod sayesinde TextBox1 girdiğim değer ListBox 1 de çıkıyor.
Aşağıda ki kod ile de ListBox1 de çıkan koda tıkladığımda ise TextBox2 de TIKLANAN o kodla ilgili SAHİBİNDEN sayfasında ki B sütününda ki bilgi geliyor.

Private Sub ListBox1_Change()

If IsNull(ListBox1.Value) = True Then TextBox2.Text = "": Exit Sub '<-------------------

Set s1 = Sheets("SAHİBİNDEN")
son = s1.Cells(Rows.Count, "A").End(3).Row
sat = WorksheetFunction.Match(ListBox1.Value, s1.Range("A1:A" & son), 0)
TextBox2.Text = s1.Cells(sat, "B")

Şimdi sunu beceremedim.
TextBox1 değer girdiğimde ListBox 1 de çıkan değere tıklayınca tıkladığım kodu "STOK" sayfasında arasın bulsun ve o kodun" I" SÜTÜNÜNDA Kİ stok miktarını TextBox3 GETİRSİN.
BEN SÖYLE YAPTIM AMA HATA VERİYOR
Private Sub ListBox1_Change()

If IsNull(ListBox1.Value) = True Then TextBox2.Text = "": Exit Sub '<-------------------

Set s1 = Sheets("SAHİBİNDEN")
son = s1.Cells(Rows.Count, "A").End(3).Row
sat = WorksheetFunction.Match(ListBox1.Value, s1.Range("A1:A" & son), 0)
TextBox2.Text = s1.Cells(sat, "B")

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