Comparar valores vb.net

[titofo]

Si está buena es, pero tengo una función "TipoBase(ByVal Str as string, ByVal T as string) as String" la cual analiza la cadena enviada en "Str" y el tipo que necesito (número, letro y otro) en el parámetro "T". O sea por ejemplo, si quiero que me analice números, envío en T = "NUM" y la cadena en Str. Me devolverá nada si son todo números nada y si hay algún carácter que no lo sea devolverá el mismo. Más o menos así funciona.