I am using the code below to remove quotes from a text file but it bombs out on the Red Highlighted section below.... Can someone help me


Dim nLength     As Long
    Dim sData       As String
    Close #1
    'Get the file length.
    Open "\\addfile00\Groups\Billing\Dictionaries\Rejections.txt" For Binary As #1
    nLength = LOF(1)
    Close #1
    sData = Space(nLength)
    Open "\\addfile00\Groups\Billing\Dictionaries\Rejections.txt" For Binary As #1
    Get 1, 1, sData
    sData = Replace(sData,"""," ")
    nLength = Len(sData)
    sData = Replace(sData, "Press <Return> to continue, or press <F7><Q> to quit: " & vbCrLf, "")
    sData = Replace(sData, "COMPLETED" & vbCrLf, "")
    sData = Left(sData, Len(sData) - 2) & String(nLength - Len(sData), " ") & vbCrLf
    Put 1, 1, sData
    Close 1