irgendwo im Code setzten wir die TextBox auf Locked
Me.txtFile.Locked = True
 
Private Sub txtFile_GotFocus()
  If Me.txtFile.Locked Then
    ' Und hier sorgen wir dafür, das die Textbox den Fokus nicht behält.
    ' Dazu setzten wir den Focus einfach auf ein möglichst passendes 
    ' Steuerelement
    Me.cmdSearch.SetFocus
  End If
End Sub