InputBox verisini Soru Mesajına Almak

[BYSERTTAS]

selamlar
Bilenler için Çok Basit ancak benimgibi acemiler için oldukca zor bir sorum var.
Aşağıdaki kod ile yazmak numarası InputBox bir değere göre kayıt kaydının bilgisi tamamlanmıştır. Bunu Yaparken Şu Soruyu sorarak yamak istiyorum. InputBox bir başina değeri yapısın yapmak istiyorum.
aynı ki : 15 Numaralı Id yi ara vardım ve kayıt bulunduysa "15 Idlı kayıt kalici olarak Silin edecek. onaylıyormu?

Kodum Şu şekilde:

Aranan = InputBox("ID NUMARSI GİRİNİZ...", " ARAMA İŞLEMİ")
WsArşiv.Range("AX:AX").Find(Aranan).Select

Sor = KayıtId.Value & "Id Numaralı Kaydı Kalıcı Olarak Silinsin Mi?"
Call SoruMesajı
If Cevap = vbNo Then Exit Sub

If KayıtId = "" Then
BilgiMesajı ("ID Numarası Girmediniz." & vbNewLine & "Kayıt Silinemedi")
Exit Sub
End If
On Error Resume Next


If Err.Number > 0 Then
BilgiMesajı ("Aradığınız Kayıt Bulunamadı" & vbNewLine & "Kayıt Silinemedi")
Else
SilinecekSatır = ActiveCell.Row
WsArşiv.Rows(SilinecekSatır).Delete

BilgiMesajı ("Kayıt Silindi")
End If
End Sub

 

[YUSUF44]

Mesaj yazarken klavyeye bir şeyler mi oldu acaba?

 

[BYSERTTAS]

Mesaj yazarken klavyeye bir şeyler mi oldu acaba?

haklısınız hatalı yerler var klavyenin azizliği diyelim. düzeltmeye çalışıyorum. ancak edit gelmiyor sadece şikayet et var

 

[YUSUF44]

Belli bir süre geçince düzeltilemiyor galiba. İsterseniz düzelterek tekrar yazın.