aşağıdaki kod açılır kutuya veri girilmesini engeller
tabi yön tuşlarının çalışması için if yada case ile kontrol sağlanabilir yada
KeyDown yerine KeyPress kullanılabilir ama bu durumda da conrol+ C ile veri yine girilebilir maalesef

Private Sub AcilanKutu_KeyDown(KeyCode As Integer, Shift As Integer)

KeyCode = 0

End Sub