سلام.

Static Number as Integer = 1000
Number += 1
Dim NewNumber as Integer = Val(String.Format("98{0}", Number))