Perhaps a Dictionary(Of String, Action)
would help. Put each thing(s) you want done into sub routines and add them to the dictionary with the command as the key:
Dim Commands As New Dictionary(Of String, Action)
Commands.Add("test1", New Action(AddressOf test))
Then just pass the string to the dictionary as the index and invoke the sub routine
Commands("test1").Invoke()