Как программно увеличивать индекс типа Н000001 на единицу - VB

Формулировка задачи:

Всем привет. Дополню вопрос - Сложение чисел как строк Так же была бы интересна реализация такого принципа, как: Например, стартовый номер такого вида: Н000001 И при дальнейшем увеличении на 1, номер стал бы Н000002 и так далее... вот как? данный пример математически не получится реализовать Всем спасибо

Решение задачи: «Как программно увеличивать индекс типа Н000001 на единицу»

textual
                            Листинг программы 
                        

                            Dim A As String
 
Function AdT(ByVal A As String, dA As Integer, Optional MidA As String = "00000") As String
    AdT = Mid(A, 1, 1) & Format(CStr((Val(Mid(A, 2)) + dA)), MidA)
End Function
 
Private Sub Command1_Click()
    A = AdT(A, 1, "00000")
    Print A
End Sub
 
Private Sub Form_Load()
   A = "H0003"
End Sub
                        