Mas aqui está um exemplo:

Dim desiredType as Type
if IsNumeric(desiredType) then ...

EDITAR: Eu só conheço o Type, não o Value como uma string.

Ok, então infelizmente eu tenho que percorrer o TypeCode.

Mas esta é uma boa maneira de fazer isso:

 if ((desiredType.IsArray))
      return 0;

 switch (Type.GetTypeCode(desiredType))
 {
      case 3:
      case 6:
      case 7:
      case 9:
      case 11:
      case 13:
      case 14:
      case 15:
          return 1;
 }
 ;return 0;