See if this helps you get started.
[vba]
Dim WB As Workbook
Dim FileName As String

FileName = Dir(Path & "\*.xls", vbNormal)
Do Until FileName = ""
On Error Resume Next
Set WB = Workbooks.Open(FileName:=Path & "\" & FileName, ReadOnly:=True, Password:="DRJWasHere")
If Err = 0 Then
On Error GoTo 0
With WB.Sheets("Data")

'Check the values in the Text Boxes here

End With
End If
On Error GoTo 0
WB.Close False
FileName = Dir()
Loop
[/vba]