I am not sure what your updated code but when you are closing the filenumber then before you use it again it is better to still get the FreeFile.
Code:
xFileNumbr = FreeFile
    Open sPath & "\Logs\Bin\" & "POP3 Connection Log.txt" For Output As #xFileNumbr
    Close #xFileNumbr
And so on.