Código
se puede hacer lo mismo pero con un listbox?
Option Explicit Const FILTRO_EXTENSIONES As String = "Archivos de texto (txt)|*.txt|" & _ "Rich Text Formato (RTF)|*.rtf|" & _ "Archivos INI|*.ini|Archivos HTML|" & _ "*.htm|Todos los archivos|*.*" Private Sub abrir_Click() With CommonDialog1 .DialogTitle = "Abrir Archivo" .Filter = FILTRO_EXTENSIONES .ShowOpen If .FileName = "" Then Exit Sub RichTextBox1.LoadFile .FileName End With End Sub