var1=CDbl(str1)
var2=CDbl(str2)
var3=CDbl(str3)
var4=CDbl(str4)
var1=CDbl(str1)
var2=CDbl(str2)
var3=CDbl(str3)
var4=CDbl(str4)
MyArray = (var1,var2,var3,var4)
SmallestNumber = LBound(MyArray)
result = WorksheetFunction.Min(var1, var2, var3, var4)