Na cosa del genere???

Dim a As Integer

Private Sub Command1_Click()
stringa_da_eseguire = "a=10+50"
a = Calcola(stringa_da_eseguire)
MsgBox a
End Sub

Private Function Calcola(stringa_da_eseguire) As Integer
valori = Split(stringa_da_eseguire, "=")
valSomma = Split(valori(1), "+")
Calcola = CInt(valSomma(0)) + CInt(valSomma(1))
End Function