Visual Basic - ABRIR UN ARCHIVO EN BINARIO

No tengo problemas para abirlo completo y mostrarlo en un textbox.

El problema es que en ese text box solo quiero mostrar por ejemplo solamente los caracteres desde la posición 9 hasta la 23.
Una vez se muestran, poder modificarlos y guardarlos modificando solo ese trozo de archivo.

Gracias y saludos.

Abrir Archivo Binario
Open nombreRutaAcceso For Binary As númeroArchivo

Éste es un ejemplo de cómo abrir un archivo; usa los tres métodos de escritura para agregar datos al archivo y cierra el archivo:
Sub Create_File()
Dim fso, txtfile
Set fso = CreateObject("Scripting.FileSystemObject")
Set txtfile = fso.CreateTextFile("c:\prueba.txt", True)
txtfile.Write ("Esto es una prueba. ") ' Escribe una línea.
' Escribe una línea con un carácter de nueva línea.
txtfile.WriteLine("Probando 1, 2, 3.")
' Escribe tres caracteres de nueva línea en el archivo.
txtfile.WriteBlankLines(3)
txtfile.Close
End Sub

Private Sub cmdAbrir_Click()
'abrimos la caja de diálogo abrir archivo
CommonDialog1.ShowOpen
txtRuta.Text = CommonDialog1.filename
Text2.Text = cargardatos(CommonDialog1.filename)
Close #1
----------------------------------------------------------------------------
Function cargardatos(filename As String) As String
Open filename For Binary As #1
ReadMasterFile = Input(LOF(1), 1)
End Function
-----------------------------------------------------------------------------
Y ahora lo que quería, era cargar una parte de esos datos que se
cargan en el text2 (se carga el archivo completo sin problemas) en
un text3, (quiero cargar los bytes del 9 al 24).

Gracias.

VEamos... Esto se supone que lee un carácter a la vez...

Dim MiCarácter
Open "PRUEBA" For Binary As #1 ' Abre el archivo.
Do While Not EOF(1) ' Repite el bucle hasta el final del archivo.
MiCarácter = Input(1, #1) ' Obtiene un carácter.
text1.text = MiCarácter ' Imprime datos en textBox.
Loop
Close #1 ' Cierra el archivo.

Por Lo Tanto... Debiera ser Así

Open "PRUEBA" For Binary As #1 ' Abre el archivo.
Do While Not EOF(1) ' Repite el bucle hasta el final del archivo.
For i = CaracterInicio to CaracterFinal
MiCarácter = Input(i, #1) ' Obtiene un carácter.
text1.text = MiCarácter ' Imprime datos en textBox.
Next i
Exit Do
Loop
Close #1 ' Cierra el archivo.