How to add values inside a string

'to illustrate the dilemma I will use a simple example

dim teststring as string = "2 + 5"
dim testinteger as integer = val(teststring)

'instead of returning 7, visual basic returns 2. How can I get it to return 7?