Application.FileDialog add filters using a string

[Hpool2018]

is there a way to add filers to fileDialog from a string?

Public Function OpenDialogBox(Dtype As DialogType, Optional tTitle As String, Optional filters As String) As String
Dim Ffilter() As String
Dim i As Integer
Dim SplitFilters() As String

Set fileSysObject = Application.FileDialog(Dtype)

With fileSysObject



If Len(filters) > 0 Then
Ffilter = Split(filters, ";")
.filters.Clear
If UBound(Ffilter) > 0 Then
For i = 0 To UBound(Ffilter)
SplitFilters() = Split(Ffilter(i), ",")
.filers.Add SplitFilters(0), SplitFilters(1)
.FilterIndex = (i)
Next
End If
End If

If Not IsNull(tTitle) Then .Title = tTitle

.Show
OpenDialogBox = .SelectedItems(1)
End With

End Function

[orange]

see this similar request from the forum for ideas

[Hpool2018]

Thanks, had a look and does not cover what Im trying to do, Cheers

[orange]

I'm not sure of your exact requirement.
I have a routine that calls a function

Public Function OpenFileDialog( _
    DisplayText As String, FilterText As String, ParamArray Filter() _
         ) As Variant '// Ref required:= Microsoft Office 11.0 Object Library '// return an array of selected items, ToUSe:
      '// ItemArray() = OpenFileDialog("Please Select...","Images","*.gif","*.jpg","*.png","*.bmp")
      Dim fd As FileDialog
      Dim vrtSelectedItem As V......

routine

Sub test_filepicker()

      Dim itemArray() As String
10       On Error GoTo test_filepicker_Error

20    itemArray() = OpenFileDialog("Please Select...", "Images", "*.gif", "*.jpg", "*.png", "*.bmp", "*.txt")

30       On Error GoTo 0
40       Exit Sub

test_filepicker_Error:

50        MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure test_filepicker of Module Module5"
End Sub

When I try to run test__filepicker with filters such as "D*.jpg" I get an Error 5 invalid procedure call or argument.
So my suspicion is you can only use *.extension or *.*.