Sub Create_Quotefile(ByVal strPath As String)
        Dim FiStr As FileStream = New FileStream(strPath, FileMode.Create)
        Dim StrWr As StreamWriter = New StreamWriter(FiStr)
 
        StrWr.WriteLine(" ")
        StrWr.Close()
        StrWr.Dispose()
 
End Sub