Para tal, recomendo que cada arquivo de texto contenha apenas uma linha de texto. O código abaixo mostra como fazer isso, mas não há tratamento de exceção e, além disso, não detecta quantos arquivos de texto existem (embora seja possível fazer isso):
'Altere para o caminho desejado.
Const mcstrDiretório As String = "c:\temp\"
Dim mstrDiretório As String
Private Sub ComboBox1_Change()
Dim intFF As Integer
Dim str As String
If Me.ComboBox1 = "" Then Exit Sub
intFF = FreeFile
Open mstrDiretório & Me.ComboBox1 & ".txt" For Input As intFF
Line Input #intFF, str
Close intFF
Me.TextBox1 = str
End Sub
Private Sub UserForm_Initialize()
With Me.ComboBox1
.Style = fmStyleDropDownList
.AddItem "Texto1"
.AddItem "Texto2"
.AddItem "Texto3"
End With
mstrDiretório = mcstrDiretório
If Right(mstrDiretório, 1) <> "\" Then
mstrDiretório = mstrDiretório & "\"
End If
End Sub
Felipe Costa Gualberto - http://www.ambienteoffice.com.br