If Position = 0 Then
Position = InStr(1, UCase(txtFile.Text), UCase(txtSearch.Text), vbTextCompare)
Else
Position = InStr(Position, UCase(txtFile.Text), UCase(txtSearch.Text), _
  vbTextCompare)
End If
If Position > 0 Then
txtFile.SetFocus
txtFile.SelStart = Position - 1
txtFile.SelLength = Len(txtSearch.Text)
Position = Position + Len(txtSearch.Text)
Else
End If
Position = 0
Call MsgBox("no (other) match in this folder", vbInformation, "searchmode result
End If

----------------------------------------------------------------
vb@rchiv =/= To boldly go where no programmer has gone before =/=