RE:Sutituir texto en un campo.
Basate en este ejemplo, en un formulario tengo 2 cajas de texto, en texto1 pongo la cadena y en texto2 guardo el resultado, lo probe y si funciona, espero que te sirva.
Private Sub Form_Load()
Me.Texto1.Value = "HERMANOS GODINEZ NAJERA"
If Mid(Me.Texto1.Value, 1, 8) = "HERMANOS" Then
Me.Texto2.Value = "H. " & " " & Mid(Me.Texto1.Value, 10)
End If
End Sub
texto1 = HERMANOS GODINEZ NAJERA
texto2 = H. GODINEZ NAJERA
SALUDOS