Как сделать, чтобы TextBox не терял фокус

'Private Sub CommandButton1_Click()
'    ' кнопка не сможет нажаться, пока не выполнится условие
'    
'    ' проверка
'    '.........
'    TextBox1.SetFocus
'End Sub
 
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'    If ПокидатьТекстБоксНельзя Then 
   Cancel = True
End Sub
 
'Function ПокидатьТекстБоксНельзя() As Boolean
'    ПокидатьТекстБоксНельзя = True
'    '......
'End Function
'

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  
iRow = Columns("B").Find(What:="*", LookIn:=xlValues, SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
  
If (Len(TextBox1) = 40 And (Left(TextBox1, 5) = "01607" Or Left(TextBox1, 5) = "01609" Or Left(TextBox1, 5) = "00184" Or Left(TextBox1, 5) = "00192" Or Left(TextBox1, 5) = "00165")) Or (Len(TextBox1) = 42 And (Left(TextBox1, 5) = "01608" Or Left(TextBox1, 5) = "01610")) Then
 
For currentRow = 1 To iRow
k = ActiveWorkbook.Worksheets("Ëèñò1").Cells(currentRow, 2).Value
k2 = TextBox1.Value
If k2 = k Then
MsgBox "Äàííàÿ êâèòàíöèÿ óæå áûëà îòñêàíèðîâàííà"
TextBox1.Value = Null
 
TextBox1.Value = Null
KeyAscii = 0
End If
Next currentRow
ActiveWorkbook.Worksheets("Ëèñò1").Cells(currentRow, 2) = TextBox1.Value
 
KeyAscii = 0
 
TextBox1.Value = Null
 
KeyAscii = 0
 
End If
 
End Sub