Imports System

Public Module Module1

    Public Sub Main()

        Dim Mrnnoincriment As String

        Dim s As String() = {"01"}

        Mrnnoincriment = (Integer.Parse(s(0)) + 1).ToString("00")

        Console.WriteLine(Mrnnoincriment)

    End Sub

End Module