Comparar valores vb.net

[titofo]

Si está buena, 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, letra u 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 todos números, por el contrario si hay algún carácter que no lo sea devolverá el mismo carácter. Más o menos así funciona.