Visual Basic - como hacer para copiar un archivo txt a richtextbo

como puedo hacer copiar todo un EL CONTENIDO de un archivo txt a un richtextbox
y no puedo usar lo de loadfile
ya que necesesito hace todo mediante codigo
osea : abrir el archivo open path for input as #1
cerrar : close #1
osea, todo mediante codigo

agradesco tu ayuda

dim sFile as string, sCadena as string

open sFile for input as #1
do while not eof(1)
input#1,sCadena
richtextbox1.text = sCadena & vbcrlf
loop
close#1

maCo