Public Function gf_AddQuotesToFN(ByVal strFileName As String) As String
    
    If InStr(strFileName, " ") Or InStr(strFileName, ",") Then
        gf_AddQuotesToFN = """" & strFileName & """"
    Else
        gf_AddQuotesToFN = strFileName
    End If
    
End Function