Private Sub btnImport_Click()
Dim vFile, vLine
vFile = txtFile 'filename in text box.
Open vFile For Input As #1
Line Input #1, vLine
Select Case True
Case Left(vLine, 4) = "%PDF"
MsgBox "PDF"
Case Left(vLine, 3) = "II*"
MsgBox "TIFF"
Case Else
End Select
Close 1
Exit Sub