[vb6]Common Dialog Class (Yet Another One)

[VB.6]

If at the end of Form1.pvDoSamples, you add this:

MsgBox cBrowser.Filter

you get an "invalid procedure call or argument" error.

Suggested corrections for this, in class CmnDialogEx:

Public Property Get Filter() As String
    If Len(ofn.lpstrFilter) Then
        Dim Flt As String
        Flt = ofn.lpstrFilter
        If ofn.lpstrFilter <> vbNullChar Then
            Flt = Replace$(Flt, vbNullChar & vbNullChar, "|") 'This line exists because at the definition of structure OPENFILENAME, for field lpstrFilter there is a comment saying "ends with 2xvbnullchar". This seems to have been set that way in Let Filter.
            Flt = Replace$(Flt, vbNullChar, "|")
        End If
        Filter = Flt
    End If
End Property