Dialog1.Filter = "doc pdf txt|*.doc,*.pdf,*.txt"

se non ti va usa il ; al posto della virgola