Indlæs del af tekstfil i textbox

Hej
Jeg har igennem lang tid forsøgt at få en del af en tekstfil indlæst i en tekstbox uden held, og nu håber jeg at der nogen der kan hjælpe mig.

Tekstfilen indeholder bl.a. følgende

-----
---
---
#0004#
Dette er teksten som skal indlæses i tekstboxen
#0005#
----
---
Det tekststykke der skal indlæses varierer i længden ligesom teksten før og efter.

Sub kald
læs_fil (str1)(her #0004#

Public Sub læs_fil(søgeord)
Dim str1 As String
Dim hvor As Byte
Dim Text1 As String
Open "hjælp1.txt" For Input As #4
str1 = Input$(FileLen("hjælp1.txt"), #4)
Close #4
???? = InStr(str1, søgeord)
?????
?????
her mangler jeg koden der skal skrive teksten i tekstboxen
End Sub

Jeg er åben for andre forslag også, fordi det her er måske ikke det mest smarte.

Der kan godt værew responstid fordi det er ikke hver dag jeg har tid til at sidde ved computeren.

tvilling53