CRIAR ARQUIVO EM PASTA AO CLICAR EM BUTTON

Dim Texto As New System.IO.FileStream([Ô]C:\phoenix.txt[Ô], IO.FileMode.OpenOrCreate)
Dim Arq As New System.IO.StreamWriter(Texto)
        Try
            Arq.Write([Ô]Teste[Ô] & vbCrLf & [Ô]WWOWO[Ô])
            MsgBox([Ô]Criado com sucesso!![Ô])
        Catch Ex As Exception
            MsgBox([Ô]Erro: [Ô] & Ex.Message)
        Finally
            Arq.Close()
        End Try