Si ya lo has solucionado olvida este mensaje. Es que creo entender que sigues con problemas.
Si tienes que hacerlo usando mid, left, etc... porque es un ejercicio de prácticas o algo así y el fin del tema es que practiques con eso o los bucles o lo que sea, me lo comentas y olvidamos este mensaje.
Si solo quieres hacerlo y no importa como, te pongo el código del boton:
Tenemos un textbox con el texto y otro con el separador.
Los textbox no se como se llaman, ya que me hablas de variables texto y separador.
Para usar los nombres comunes llamare al textbox que contiene el texto "Text1" y al del separador "Text2"
Los labels son 6, asi que serán Label1, Label2, etc...
El botón separar imagino que se llama Sep.
Solo hay que retocar la sub.
Código :
Ver originalPrivate Sub Sep_Click()
Dim matriz() As String
matriz = Split(Text1.Text, Text2.Text)
Label1.Caption=matriz(0)
Label2.Caption=matriz(1)
Label3.Caption=matriz(2)
Label4.Caption=matriz(3)
Label5.Caption=matriz(4)
Label6.Caption=matriz(5)
End Sub