string uppercase

hi, i'm new in Vb.Net programming and i need to do a litle function that recives one string and return 1 if there are letters uppercase [with exception of the first one] and zero in oposite case: Exemple: "This string is good" ==>> return 0 "This String have Capitall letters in the midle "...