Visual Basic - Concadenar un text

Hola estoy trabajando hace poco con Visual Basic haciendo Makros en Word, y tengo una gran duda ojala me puedan ayudar.

Resulta que tengo un Texto en una Variable x.

X = Texto Texto = "Hola como estas"

Yo quiero recorer este String X y mediante una funcion o un Procedimiento me quede asi :

Texto = "_Hola_como_estas"

Si me pueden ayudar se los agradeceria muchisimo, yo soy nueva en estoy ahora estoy aprendiendo.

Muchas Gracias.
Saludos.
Gabriela

Yo lo haria asi en Visual Basic.

Private Function Recorre(campo as string) as string
Dim cad as string

If InStr(x , " ") Then 'si encuentra espacios
cad = Replace(x , " ", "_") 'remplace espacios por _
Texto= "_" & cad 'agrega caracter al inicio
End if
End Function

Al llamarla seria asi

X = Texto Texto = "Hola como estas"
Recorre (x)

Suerte

¿Asignarle un guión bajo al inicio y reemplazar con ese mismo caracter los espacios?
Si esto es lo que quieres puedes hacerlo así:

X = "_" + Replace( X, " ", "_" )
Según tu ejemplo, en la variable X está el texto, y lo dejamos en la misma variable una vez "procesado".

Hola muchas gracias por su ayuda, de verdad yo me tarde tanto en eso y ustedes me respondieron muy rapido :) y solucionaron ese problema .

Tengo otra pregunta como hago para Cortar un String

Por ejeplo yo tengo el String que me dio por resultado

Texto ="_Hola_como_estas_no_te_habia_visto_"

yo necesito hasta la 8va posicion por Ejemplo:

Texto="_Hola_como_estas_no"

hay alguna funcion o Procedimiento que me pueda ayudar?.

Muchas Gracias
Gabriela

Claro, te sirve la función Left (y también Mid):

Texto = Left( Texto, 8)
ó
Texto = Mid( Texto, 1, 8 )

La más recomendable para esto es Left( )
Revísalas en la ayuda (MSDN), junto con la función Right( )

Hola gracias por su ayuda.

ahora tengo el siguiente problema ojala me puedan ayudar.

Este es el String que tenia:

Texto = "_Hola_como_estas_busco_ayuda_con _mi_String"

Despues lo corte porque solo puedo tener los primeros 36 caracteres y quedo asi

Texto = Left( Texto, 36) y me dio esto
Texto = "_Hola_como_estas_busco_ayuda_con_mi_"

lo que yo quiero es que el texto me muestre solo hasta la cuarta "_" despues complete las "_" hasta la posicion 36. Ejemplo:

quiero que me quede asi:

Texto = "_Hola_como_estas_busco ayuda con mi "

Hay alguna funcion que me pueda ayudar, e intentando varias cosas pero como soy nueva en esto no he podido encontrar. Ojala me puedan ayudar.

Saludos
Gabriela

Hola, ya solucione el problema, con lo siguiente:

Text = "_" + Replace(x , " ", "_", 1, 3)
cad = Mid(Text, 1, 36)

cad = "_Hola_como_estas_busco ayuda con mi "

de todas maneras muchas gracias :)