prova così.
devi fare i controlli neccessari al tuo caso.

codice:
        Dim num As String()

        num = TextBox1.Text.Split(","c)

        Label1.Text = num(0).Substring(0, 3)
        Label2.Text = num(1).Substring(num(1).Length - 2)
ciao