For i = 0 To 10 Print "f(";i;") maps to ";mapToRange(i, 0, 10, -1, 0) Next i End Function mapToRange(value, inputMin, inputMax, outputMin, outputMax) mapToRange = (((value - inputMin) * (outputMax - outputMin)) / (inputMax - inputMin)) + outputMin End Function