Cargar un Combobox

[erbuson]

Hola, entonces probablemente el error esta ahí donde yo te decía.

Archivo = Dir(App.Path + "\estudios\*.RTF")

Private Sub txtEstudioSol_Click()
RichTextBox1.LoadFile App.Path + "\estudios\" + txtEstudioSol.text, rtfRTF
End Sub

Pruebalo así, pero de todos modos es mejor que en vez de utilizar el + como concatenación de cadenas utilices el &

RichTextBox1.LoadFile App.Path & "\estudios\" & txtEstudioSol.text, rtfRTF

Simplemente porque se suele aconsejar esto a fin de evitar posibles problemas en un futuro.