VB.net มีวิธีการบวกค่า string ที่เป็น 0000 ไหมครับ ??

   Dim year As Integer = DateTime.Now.Year
        Dim k As Integer = "00000"
        count()
        Dim dt As DataTable = New DataTable
        Dim dr As DataRow

        dt.Columns.Add("RowNumber")
        dt.Columns.Add("ID-Genarate")
        dt.Columns.Add("Column1")

        'dt.Columns.Add(New DataColumn(TypeOf ("TextBox1") Is String))
        dr = dt.NewRow

        dr("RowNumber") = TextBox2.Text
        dr("ID-Genarate") = "CH" & year & Convert.ToDecimal(k) + 1