Option Explicit

Private Sub CmdBuscarCadena_Click()
Dim Canal As Integer, N As Integer, N2 As Integer
Dim Cadena As String
    Canal = FreeFile
    Open "prueba.txt" For Input As #Canal 'Abrir archivo
        Do Until EOF(Canal) 'Hacer hasta que cierre el archivo
            Text1.Text = Input$(LOF(Canal), #Canal)
        Loop
    Close #Canal 'Cerramos el archivo
    N = InStr(1, Text1.Text, "***") 'Buscando el primer ***
    N2 = InStr(N + 3, Text1.Text, "***") 'Buscando el segundo ***
    Text2.Text = Mid(Text1.Text, N + 3, N2 - (N + 3)) 'Extrayendo la cadena
End Sub