Selecionar Itens de uma ListBox a partir de um Vários Valores contido numa TextBox

Boa tarde companheiros.

Tenho uma ListBox como frm.ListBox num formulário, onde a partir de seleções aleatórias desta ListBox que foram transferidos num TextBox do mesmo formulário e ficou gravado da seguinte forma: frm.MinhaTextBox = Valor1, Valor3, Valor7. Agora eu preciso fazer o inverso.

Preciso que a partir dos valores desta MinhaTextBox onde os valores são separados por vírgula que todos esses valores fiquem selecionados na MinhaListBox onde a mesma contem os mesmos valores conforme exemplo abaixo.

MinhaTextBox.value = Valor1, Valor3, Valor7

MinhaListBox.Select irá mostrar

Valor1 Selecionado
Valor2 Não Selecionado
Valor3 Selecionado
Valor4 Não Selecionado
Valor5 Não Selecionado
Valor6 Não Selecionado
Valor7 Selecionado

O meu objetivo é que eu gostaria que ficasse no mesmo padrão a minha tela de cadastro e também a tela de edição de registro no mesmo formulário.
Se tiver uma outra ideia será bem vinda.

Agradeço

André

Seria algo assim:

Código:

    Dim itens() As String
    Dim i As Byte, j As Byte
   
    itens = Split(MinhaTextBox.Value, ",")
   
    For i = 0 To UBound(itens)
        For j = 0 To MinhaListBox.ListCount - 1
            If Trim(itens(i)) = MinhaListBox.List(j) Then
                MinhaListBox.Selected(j) = True
            End If
        Next
    Next