Function fEval(status As String)
Dim strFunctionName As String
Dim x
     If status = "A" Then
         strFunctionName = "TestThat()"
     Else
         strFunctionName = "TestThis()"
     End If

     fEval = Eval(strFunctionName)
End Function

Function TestThis()
     Debug.Print "Test This"
End Function

Function testThat()
     Debug.Print "Test That"
End Function

Copyright By AccessVision