Function DT(strGelen)
TRD = Replace(strGelen, Chr(34), "")
TRD = Replace(TRD, Chr(39), "")
End Function

bu foksiyon ile " karakterini kaldrımam lazım ama olmuyor