[VB6] Estrarre testo con separatori in TextBox o RichTextBox

[LMondi]

Potresti usare la funzione Split, ti posto un esempio:

Private Sub Command1_Click()
Dim s As String
Dim sx As String
Dim Info
Dim i
    
    Text1.Text = "Prova | di | funzionamento"
    s = Text1.Text
    Info = Split(s, "|")
    
    For i = 0 To UBound(Info)
        sx = sx & Info(i) & "| " & Chr(13)
        MsgBox Info(i)
    Next
End Sub