vX.Y.Zなら&H XXYYZZZZとなるので, V$=HEX$(VERSION,8) FOR I=4 TO 8IF V$[I]=="0"THEN V$=SUBST$(V$,I,"")ENDIF NEXT ?VAL(LEFT$(V$,2));".";VAL(MID$(V$,2,2);".";VAL(RIGHT$(V$,4)) でいいと思います