Ethics(7) = "Client and Employer"
dim sFile as string = Ethics(7)
if system.io.File.Exists(sFile) = true then
dim objWriter as new system.io.StreamWriter(sFile)
objWriter.Write(Ethics(0))
objWriter.Write(Ethics(1))
objWriter.Write(Ethics(2))
objWriter.Write(Ethics(3))
objWriter.Write(Ethics(4))
objWriter.Write(Ethics(5))
objWriter.Write(Ethics(6))
objWriter.Write(Ethics(7))