Qué tal?
Si lo he entendido bien, lo que quieres hacer es, para cada ecuación, entrecomillar las expresiones a ambos lados del símbolo "=" salvo que se trate de un número... en ese caso:
Código:
Dim Expr() As String
Expr = Split(<variable_ecuacion>, "=")
If Ubound(Expr)<>1 Then ' Comprobamos que sólo hay un símbolo "="
MsgBox "Error de sintaxis"
Else
If Not IsNumeric(Expr(0)) Then Expr(0) = """" & Expr(0) & """"
If Not IsNumeric(Expr(1)) Then Expr(1) = """" & Expr(0) & """"
<variable_ecuacion> = Join(Expr, "=")
End If
Sustituye "<variable_ecuación>" por tu variable, o mete este código en una función y te servirá para cada ecuación por separado.
Creo que es bastante sencilla, pero pregunta si no ves algo
