(02/05/2024, 12:05)C*e*l*o*y*c*e yazdı: merhaba
bundan böyle mümkün oldugunca sorularınıza örnek ekleyerek sormaya çalışın Lütfen
Aşagıdaki kodd gibi bir kod ile işinizi çözebilir.

Private Sub Button1_Click()
    Dim metin1 As String
    Dim metin2 As String
        ' Metin kutularından metinleri al
    metin1 = Me.Metinkutusu1.Text
    metin2 = Me.Metinkutusu2.Text
        ' Metin kutusu 1 boş ise metin kutusu 2'deki metni 1. satıra yaz
    If metin1 = "" Then
        Me.Metinkutusu1.Text = metin2
    Else
        ' Metin kutusu 1 dolu ise metin kutusu 1'deki metni koru ve metin kutusu 2'deki metni 2. satıra yazar
        Me.Metinkutusu1.Text = metin1 & vbCrLf & metin2
    End If
End Sub

Kusura bakmayın hocam metikutuları ile olduğu için gerek duymamıştım. Hakkınızı helal edin. Hayırlı akşamlar.