Merhaba, 

Dim GSayi As Integer

Dim GVeri As String



For GSayi = 1 To 12



    GVeri = 0 & GVeri

    Me.ean13 = GVeri & Me.sip_id



        If Len(Me.ean13) = 12 Then

            Exit For

        End If



Next GSayi

Şeklinde de kullanabilirsiniz.