Buenos dias. Soy nuevo en la programación y no tengo ni idea de visual. Haber si los expertos pueden echarme una mano.

Necesito buscar en un fichero de texto de forma que si el 3er caracter de cada línea es una "#" coja toda la línea y la guarde en un fichero nuevo. Estoy intentando indagar en san google pero tengo demasiada poca idea para hacerlo, me haría falta esto para empezar.

Un saludo y gracias por vuestro tiempo de antemano.

PD: Se que hay que crear un streamwriter y un filestream pero soy nulo y estoy mu perdio. Aquí os dejo mi codigo aunque da bastante pena por que no se hacerlo. Enfin no me enrollo mas, un saludo.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim linea As String
Dim ofichero As FileStream
Dim oescritor As StreamWriter
Dim SearchString As String = "C:\01\001_130710_D_T_00_01\001_130710_D_T_00_01.0 13.txt"
ofichero = New FileStream("c:/prueba.txt", TestPos = InStr(3, SearchString, "#")
while testpos = "#"


FileMode.Append, FileAccess.Write)
fileclose()