Visual Basic - Duda sobre ScriptControl.

Hola compañeros, de que forma puedo llamar a la funcion "suma" sin tener que declararla dentro del procedimiento , scodigo = "Function suma(a, b) suma= a * b End Function" , no se si me explico ya que si tubiera 30 funciones tendria que agregar infinidad de variables y entre comillas los procedimientos, gracias de antemano.

Public Function Suma(a, b)
Suma = a + b
End Function
------------------------------------------------------------
Private Sub cmdeval_Click()
Dim vvalor As Variant
Dim scodigo As String
scodigo = "Function suma(a, b) suma= a * b End Function"

'vamos a jecutar Msgbox externo
Set ObjetoScript = New ScriptControl
With ObjetoScript
.Language = "VBScript"
.AddCode scodigo

vvalor = .Eval(Trim(Me.Text2))

End With
Set ObjetoScript = Nothing
Me.Text1 = vvalor
End Sub