Visual Basic 2005. Salvar archivos desde Visual Basic.

[moradazo]

Gracias David, ahora el resultado es mucho mas efectivo.
En el If que me mostrastre, le agregue el "Contains" para tener mas efectividad de que la palabra contenga esa cadena:

If Microsoft.VisualBasic.Left(colWin(s), 6).Contains("Treat") Then
TextBox1.Text = s
End If

Lo malo es que como que se queda guardado el hWnd, puesto que cerre el Treat y al abrirlo me deberia generar un nuevo numero pero no lo hace, inclusive cerrando me mostraba el mismo numero, hasta que le cambie el nombre de Treat por otro ahi para probar entonces si me cambio de numero, sera algo que tenia el codigo anterior?