VBA. Mid

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

Здравствуйте! Как, использовав Mid, написать код, чтобы вместо 1,2,3... получилось 000001, 000002, 000003...? Заранее спасибо!

Sub вууву()
    Dim s As String
    Dim r As String
    
    s = "1"
    r = Mid(a, 1, 0) & "0" & s
    MsgBox r
End Sub

Решение задачи: «VBA. Mid»

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

                            Sub xxx()
 
    Dim i&, s$
    Const fx = "000000"
    For i = 1 To 10
        s = Mid$(fx & i, Len(CStr(i)) + 1)
        Debug.Print s
        If MsgBox("Результат: " & s & vbLf & "Продолжить ?", 68) = vbNo Then Exit For
    Next
    
End Sub
                        