Visual Basic - Operaciones con cadenas de texto

Hola,
tengo una cadena de texto mas o menos asi:

5180A08205056000050105

y si se cumple una condicion q no ahora no vien al caso, pues cambiar los tres ceros que hay despues del 56 por unos... de tal manera q seria esto:

5180A08205056111050105

Como puedo hacer esto?

tengo hecho algo asi:

Text2.Text = Left(Text1.Text, 13) & "111" & ?????

El campo de texto no siempre tiene el mismo valor por la derecha, si por la izquierda, que siempre son 13, sino seria facil ,pero al variar la longitud de numeros por la derecha no lo se hacer...hay alguna funcion que diga: pon lo que hay a partir del caracter 17?

muchas gracias por la ayuda...

Revisa la función Mid. Puedes hacer:

Text2.Text = Left(Text1.Text,13) & "111" & Mid(Text1.Text,17)

for x=1 to len(text1.text)

if x=17 then
text3.text=text3.text & mid(text1.text,x,1)
endif

next x

te guardara en text3 los valores a partir del 17

Es redundante!!!! el segundo parametro de Mid es la longitud que si no se pone es hasta el final de la cadena!!!!!!!!!!!!!!!!!!!!!!