  .lpstrDefExt = DefaultExt
       ' DlgTitle can take dialog box title
       .lpstrTitle = DlgTitle
       
       ' To make Windows-style filter, replace | and : with nulls
       Dim ch As String, i As Integer
       For i = 1 To Len(Filter)
           ch = Mid$(Filter, i, 1)
           If ch = "|" Or ch = ":" Then
               s = s &amp; vbNullChar
           Else
               s = s &amp; ch
           End If
       Next
       ' Put double null at end
       s = s &amp; vbNullChar &amp; vbNullCha