Как сделать так чтобы в TextBox можно было вводить только заглавные буквы и русские ? Заранее спасибо огромное за ответ !!!

Нахожу нужную строчку и мне надо ее отредактировать, но когда я нажимаю кнопочку "Записать", то добавляется новая строчка в начало листа. Подскажите, как мне сделать так, чтобы строчка не добавлялась, а изменялись данные в найденой строчке. Заранее огромное спасибо.  
 
Вот мой код, как я нахожу нужную строчку :  
 
Private Sub Text1_Exit(ByVal Cancel As MSForms.ReturnBoolean)  
If IsNumeric(Text1.Value) And Val(Text1.Value) > 0 Then  
Columns("A:A").Select  
Selection.Find(What:=Text1.Value, After:=ActiveCell, LookIn:=xlFormulas, _  
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _  
MatchCase:=False, SearchFormat:=False).Activate  
Cancel = False  
Else  
  Cancel = True  
End If  
End Sub

Смысл в том, что мне надо организовать поиск,т.е. у меня есть форма, на которой есть TextBox. Необходимо вводить набор символов в этот компонент и чтобы он пробегался построчно по файлу и останавливался на той записи, которая соответствует условию, введенному в TextBox. Подскажите, как это можно организовать ?