sicuro che nn venga riconosciuta più? magari c'è qlcosa di simile.. in ogni caso come ti dicevo andavo a memoria...
mmm nn ho capito molto della tua funzione anke xkè nn conosco VB6 e dollari vari :-P
riferendomi al titolo del tuo post puoi provare a fare una conversione dentro un try...catch

try
numero = cint(stringa)
.... quello ke ti serve
catch ex as exception
.... quello ke ti serve
end try

non è il massimo ma funziona..
poi ripeto, nn ho ben chiaro a cosa ti serva a qsto punto.
ciao e scusa per lo scarso aiuto.