DIM fposhi   AS STRING
    DIM fposlo AS STRING
    DIM fposhex AS STRING
    DIM fposlittle AS STRING
    DIM x1 AS INTEGER, x2 AS INTEGER
 
    fposhex = "C000"
 
'      fposhi = Microsoft.VisualBasic.Left(fposhex, 2)
'      fposlo = Microsoft.VisualBasic.Right(fposhex, 2)
 
    fposhi = LEFT$(fposhex,2)
    fposlo = RIGHT$(fposhex,2)
 
     x1 = VAL("&H" & fposhi)
     x2 = VAL("&H" & fposlo)
 
     fposlittle = CHR$(x2) & CHR$(x1)