Herkese merhaba;
Bir formda yer alan başlık etiketinin çift tıklandığında olayına altında yer alan kutucukların hepsine kod çalıştığında açılacak soru penceresinden girilen değeri kopyalamak istiyorum nasıl yapabilirim?

Örneğin:

Private Sub lblTeslimAlan_DblClick(Cancel As Integer)
If Not IsNull (txtTeslimAlan1) Then

    Dim adi As String
    adi = Me.txtTeslimAlan1 ' bu kısımda textbox'dan veri almak yerine kullanıcıya hangi değerin uygulanacağını açılan pencereden sorsun istiyorum. 
    
    '---------------------------------------------
      If Not IsNull(txtVib_ParcaNo2) Then
        Me.txtTeslimAlan2.Value = adi
      Else
        Me.txtTeslimAlan2.Value = Null
      End If
      '---------------------------------------------
      If Not IsNull(txtVib_ParcaNo3) Then
        Me.txtTeslimAlan3.Value = adi
      Else
        Me.txtTeslimAlan3.Value = Null
      End If
      '---------------------------------------------
      If Not IsNull(txtVib_ParcaNo4) Then
        Me.txtTeslimAlan4.Value = adi
      Else
        Me.txtTeslimAlan4.Value = Null
      End If
      '---------------------------------------------
      If Not IsNull(txtVib_ParcaNo5) Then
        Me.txtTeslimAlan5.Value = adi
      Else
        Me.txtTeslimAlan5.Value = Null
      End If
      '---------------------------------------------
      If Not IsNull(txtVib_ParcaNo6) Then
        Me.txtTeslimAlan6.Value = adi
      Else
        Me.txtTeslimAlan6.Value = Null
      End If
      '---------------------------------------------
Else
    MsgBox "Tüm satırlara teslim alan bilgisini kopyalamak için ilk satıra bilgi girilmelidir!"
End If
End Sub

adi=inputbox("deger griniz")
Şeklinde dener misiniz

Halil hocam merhaba;
Tam olarak istediğim buydu vermiş olduğunuz cevap ve ilginiz için teşekkür ederim...

Rica ederim
Iyi calismalar