Private Sub Form_Load()
    PHP = "HOLA COMO ANDAS action = ""archivo.php"" BLA BLA BLA"
   '^  la variable PHP contendria el codigo php
    PHP2 = Replace(PHP, "action = ""archivo.php""", "action = ""procesador.php""")
   '^  la variable PHP2 tendra el codigo php corregido_
   ' se usa replace que reemplazara en una cadena un texto por otro texto.
End Sub
 

Private Sub Form_Load()
    php = "HOLA COMO ANDAS action = ""archivo.php"" BLA BLA BLA"
   '^  la variable PHP contendria el codigo php
   inicio = InStr(php, "action = """) + Len("action = """) 'buscamos primer parte (action = ")
   inicio2 = InStr(inicio, php, Chr(34)) 'Buscamos la siguiente comilla luego de ---^
    php2 = Mid(php, 1, inicio - 1) & "procesador.php" & Mid(php, inicio2, Len(php) - inicio2 + 1)
   '        ^cortamos php hasta inicio, ^agregamos procesador, ^cortamos la ultima parte de php
   '^  la variable PHP2 tendra el codigo php corregido_
End Sub