Private Function ConvertNumberToSimpleFormat(ByVal dblVvNumber As Double) As _
  Double
    ConvertNumberToSimpleFormat = 0
    Const strLcCOMPLEX_BIT As String = "E-"
    Const strLcPADDING_CHARATER As String = "#"
    Dim strLvNumber As String: strLvNumber = CStr(dblVvNumber)
    Dim intLvMultiplier As Integer
    Dim intLvPositionOfComplexBit As Integer
    intLvPositionOfComplexBit = InStr(strLvNumber, strLcCOMPLEX_BIT)
    If intLvPositionOfComplexBit > 0 Then
        intLvMultiplier = Val(Mid(strLvNumber, intLvPositionOfComplexBit + Len( _
          strLcCOMPLEX_BIT)))
        ConvertNumberToSimpleFormat = CDbl(Format(dblVvNumber, "0." & String( _
        intLvMultiplier + Len(strLvNumber) - (Len(strLcCOMPLEX_BIT) + Len(Trim( _
        Str(intLvMultiplier)))), strLcPADDING_CHARATER)))
    Else
        ConvertNumberToSimpleFormat = CDbl(strLvNumber)
    End If
End Function