Private Sub CloseFile()
        If Str IsNot Nothing Then
            Str.Close()
            Str = Nothing
        End If
        If StreamW IsNot Nothing Then
            StreamW.Close()
            StreamW = Nothing
        End If
    End Sub