Curious if I am thinking about this right.

[CharlieJV]

Ha! even less work

Code: (Select All)

Const Conv# = 25.4 '25.4 mm every inch

Dim op% ' 1 if desired conversion is from inches to mm else vise versa

Dim num As Double ' a number to convert

Input "Enter a Number to convert "; num

Input "Enter 1 for conversion to mm from inches any other does vice versa "; op%

Print _IIf(op% = 1, num * Conv#, num / Conv#)

Oh you speed demon,  I was in the midst of doing something similar while you posted that.