Function in VBA (Excel) - Want a dynamic behavior depending on parameter

[大灰狼1976]

Hi enggrahul78!
Welcome to vbax forum.
Please refer to the attachment.

Function Correctanswer(MVAR1 As Long, MVAR2 As Long, MVAR3 As Long, MVAR4 As Long, Whattodo As String) As Long
Dim s$
s = Whattodo
s = Replace(s, "MVAR1", MVAR1)
s = Replace(s, "MVAR2", MVAR2)
s = Replace(s, "MVAR3", MVAR3)
s = Replace(s, "MVAR4", MVAR4)
Correctanswer = Evaluate(s)
End Function

--Okami