Visual Basic - Ayuda Visual Basic 6

Bueno miren tengo una duda, quiero hacer sesto

en un text box (text1) quiero poner "perro - malo"

y kiero ke en un text2 y en un text3 se separen

ejemplo

(text1) perro - malo

(text2) perro

(text3) malo

no se si me entiendan

usando la funcion mid(), Algo asi:
For i = 1 To Len(text1)
letra = (Mid(text1, i, 1))
If letra = "-" Then
text 2= Mid(text1, 1, i - 2)
text3=Mid(text1, i+2, Len(text1))
i = Len(text1)
End If
Next i

Muchas GGracias Me has Ayudado Mucho ;)