Вы хотите игнорировать дробь => использовать Math.Truncate .
Затем вы хотите установить долю 0,99 => добавить 0,99
Function Make99(x As Decimal) As Decimal
Return Math.Truncate(x) + 0.99D
End Function
Sub Main()
Dim testData = {2.34D, 3.74D, 4.11D, 5D}
For Each t In testData
Console.WriteLine(t.ToString("0.00") & " - " & Make99(t))
Next
Console.ReadLine()
End Sub
Выходы:
2,34 - 2,99
3,74 - 3,99
4,11 - 4,99
5,00 - 5,99