Imports System

Public Module Module1

    Public Sub Main()

        dim Ethics(7) as string

        Ethics(0) = "Public"

        Ethics(1) = "Product"

        Ethics(2) = "Collegaues"

        Ethics(3) = "Judgement"

        Ethics(4) = "Self"

        Ethics(5) = "Management"

        Ethics(6) = "Profession"

        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))

            objWriter.Close()

            console.WriteLine(sFile)

        end if

    End Sub

End Module