Ciao zoodany, sinceramente non ho modo di provare ora, ma ti posso suggerire di provare con l'istruzione left, ossia:

codice:
val = Left(oradamodificare,5)
ossia comprendente i primi 2 caratteri, il punto, e gli ultimi 2 escludendo i secondi..

fammi sapere..ciao AUGURI