Visual Basic - Reemplazar caracteres en un text

Como reemplazo un juego de caracteres por otros en un text: es decir
en un textbox tengo un cadena asi : 100-1-1-4-2.

Quiero detectar cuales son los números que estan sin ceros y que les añada dos ceros antes del numero es decir que me quede asi:
100-001-001-004-002

Si me puedes ayudar mil gracias.

lo que puedes hacer es mediante un bucle ir cogiendo los caracteres y cuando encuentres el caracter "-" dar formato a esa subcadena con:
format ( cadena, "000").
Si se sirve de ayuda, tambien te puedo decir que la funcion INSTR te devuelve la posicion en la que se encuentra un determinado caracter:

Esta funcion esta mejor y creo que esta mucho mas optima

Despues de un rato la analice y la programe, checala

Dim MyString As String
For I = 1 To 9
MyString = Text3(Index).Text
MyString = Replace(MyString, "-" & I, "-00" & I)
Text3(Index).Text = MyString
Next I