C'è qualcosa che mi sfugge:

codice:
'ORE STRAORDINARIO
strORESTRAORDINARIO = formatnumber(Rs("strORESTRAORDINARIO"),2)

lngStartPos = 1
strSearchFor = "," 

lngFoundPos = InStr(lngStartPos,strORESTRAORDINARIO,strSearchFor)

Do While lngFoundPos > 0 

    lngStartPos = lngFoundPos + 1 
    lngFoundPos = InStr(lngStartPos,strORESTRAORDINARIO,strSearchFor) 

'SPLITTO PER VIRGOLA
    strORESTRAORDINARIO = split(strORESTRAORDINARIO, ",") 

'CALCOLO ORE
    strORESTRAORDINARIO_Ore = strORESTRAORDINARIO(0) * 60

'SOMMA ORE MINUTI
    strORESTRAORDINARIO_1 = strORESTRAORDINARIO_Ore + strORESTRAORDINARIO(1)

'TRASFORMAZIONE IN ORE
    ore = int(strORESTRAORDINARIO_1 \ 60)

'TRASFORMAZIONE IN MINUTI
    min = strORESTRAORDINARIO_1 mod 60

Loop
Ottengo 4,20 che non è esatto...