Boa tarde.
Supondo que os Labels ficaram com os nomes padrão (Label1,Label2,Label3) e o textbox também ( Textbox1), teste o seguinte dentro do evento click de um botão no userform:

Dim stxt() As String

stxt = VBA.Split(Me.TextBox1.Text, "-")

For a = LBound(stxt) To UBound(stxt)

Me.Controls("Label" & a + 1).Caption = stxt(a)

Next a

Ola Wzxnet7, muito obrigado por sua atenção. Mas eu não consegui adaptar a macro para minha situação.
Na verdade onde eu coloquei Textbox1, seria Label7.
E

Label1 seria Label 28
Label2 seria Label 29
Label3 seria Label 30

Me perdoa por não ter colocado os dados antes, eu achei que não teria problemas rsrs

Muitissimo obrigado por sua atenção meu amigo.

Boa noite.
Tente o seguinte, se não conseguir, poste seu arquivo modelo.

Dim stxt() As String

stxt = VBA.Split(Me.TextBox1.Text, "-")

For a = LBound(stxt) To UBound(stxt)

Me.Controls("Label" & a + 28).Caption = stxt(a)

Next a

Deu certinho wzxnet.
Muito obrigado amigo.