I'm not sure what you want to achieve, but if you want "minimize" - means: reduce - the number of lines, try this:
Dim dblResult As Double = 0R, dbloutput As Double = 0R, lngFactor As Integer = 0
lngFactor = 10 ^ intDecimalPlaces
dblResult = Fix((dblNumber * lngFactor) + (0.5 * System.Math.Sign(dblNumber)))/lngFactor