Imports System.IO

Module TextFiles 

    Sub bubble_colours()

        Dim sFileName As String = "colours.txt"

        Dim opencolours As System.IO.StreamWriter

        opencolours = New StreamWriter(sFileName, True)

    End Sub

End Module