With CommonDialog1
  ...
  .ShowOpen
  If Err.Number = 0 Then
    Select Case LCase$(Right$(.Filename, 4))
      Case ".com", ".dll", ".exe", ".pif", ".scr", ".vbs"
        MsgBox "Sorry... diese Dateien werden nicht unterstützt!"
      Case Else
        ...
    End Select
  End If
End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de