Visual Basic - Leer un TXT

Hola a todos

Soy nuevo en este lenguage y tengo problemas al intentar leer un archivo.txt que tiene la siguiente estructura:

001186,nombre asociado,A
001185,nombres de los asociados,B

lo que se requiere es buscar en la primera columna tomando como referencia un textbox e intentado con y tomar la segunda y reemplasar el Textbox y en una variable la tercera para hacer una vusqueda busqueda en otro TXT

Fileopen(1, "\archivo.txt", OpenMode.Imput)

fileclose(1)

Pero me manda un error de que permisos

De antemano gracis por la ayuda

Fijate con esto, revisa bien la ubicación del archivo y como la mandas:

Dim Lineas As Variant, i As Integer

Lineas = Split(FileToString(App.Path & "\MiArchivo.txt"), vbCrLf)

For i = LBound(Lineas) To UBound(Lineas)

Columnas = Split(Lineas(i), ",")

For j = LBound(Columnas) To UBound(Columnas)
Debug.Print Columnas(j)
Next j

Next i

Public Function FileToString(FileName As String) As String
Dim hlngFile As Long, strFile As String
hlngFile = FreeFile
Open FileName For Binary Access Read As hlngFile
FileToString = vbNullString
strFile = String(FileLen(FileName), " ")
Get hlngFile, , strFile
Close hlngFile
FileToString = strFile
End Function