Imports System
Public Class Test
Public Shared Sub Main()
Dim s As String = "872.8721"
Dim n As Integer = Integer.Parse(s.Substring(s.LastIndexOf(".") + 1)) + 1
s = s.Substring(0, s.LastIndexOf(".") + 1) & n.ToString()
Console.WriteLine(n)
Console.WriteLine(s)
End Sub
End Class
' run:
'
' 8722
' 872.8722
'