Casi tengo el Replace hecho , pero necesito.....

[RootK]

Siguiendo tu ejemplo entonces te quedaría así:

Dim objKeys As String
Dim texto As String
For Each objKeys In Request.Form.Keys
If Left(objKeys, 3) = "Txt" Then
texto = (Request.Form.Item(objKeys))
texto = Replace(texto, "'", "´", 1, CompareMethod.Text)
CType(Page.FindControl(objKeys ), TextBox).Text = texto
End If
Next

Creo eso te va a funcionar..

Saludos