PROBLEMA SOLUCIONADO:
Declaro variable del nombre del fichero al inicio del Form.Main
Código:
Dim Fichero As String = "C:\Registro Llamadas\" & Now.ToString("dd-MM-yyyy HH.mm.ss") + ".log"
y Luego a la hora de escribir le digo que su fichero es Variable "Fichero"
Código:
Sub Mostrar(ByVal d As String)
consola.AppendText("" & d)
FileOpen(1, Fichero, OpenMode.Output)
Write(1, consola.Text)
FileClose(1)
End Sub
Muchas gracias por la idea, ahora cada vez que ejecuto la aplicacion me genera un LOG nuevo que es lo que me interesaba y me graba los datos en ese fichero.
Muchas gracias Nuevamente