vba düşey ara textboxlar temizlenmiyor

[nizamuyar]

Merhabalar ,
textbox a girilen değeri aşağıda ki kodlar ile arıyoruz. Bulduğunu ekrana yazıyor. Ama st001 kodlu ürün var ekrana yazdı st0012 yazdığımda ürün bulunamadı veya inputları temizle gibi bir işlem yapmasını istiyorum çözüm bulamadım
----------------------------------------
Sub stok_bul()
On Error GoTo MyErrorHandler:
Dim stok_kodu As String
stok_kodu = stokkod

If "" <> Application.WorksheetFunction.VLookup(stok_kodu, Sayfa2.Range("A:A"), 1, False) Then
stokkod = Application.WorksheetFunction.VLookup(stok_kodu, Sayfa2.Range("A:A"), 1, False)
stoktanim = Application.WorksheetFunction.VLookup(stok_kodu, Sayfa2.Range("A:B"), 2, False)
depostok = Application.WorksheetFunction.VLookup(stok_kodu, Sayfa2.Range("A:C"), 3, False)
yenistok = depostok
raf = Application.WorksheetFunction.VLookup(stok_kodu, Sayfa2.Range("A"), 4, False)
yil = Application.WorksheetFunction.VLookup(stok_kodu, Sayfa2.Range("A:F"), 5, False)
sira = Application.WorksheetFunction.VLookup(stok_kodu, Sayfa2.Range("A:G"), 6, False)
isemri = Application.WorksheetFunction.VLookup(stok_kodu, Sayfa2.Range("A:G"), 7, False)
tarih.Text = CDate(Date)
saat.Text = Format(Now, "hh:mm:ss")




Else
stoktanim = ""
yenistok = ""
depostok = ""
stokkod = ""
raf = ""
yil = ""
sira = ""
isemri = ""
tarih = ""
saat = ""
End If
Exit Sub
MyErrorHandler:
If Err.Number = 1004 Then

End If
End Sub