[Ahmed_Mansoor]

وعليك السلام ورحمة الله وبركاته

أهلا أخي الكريم , هذا كود الكوماند كامل لعمل ماتريد :

PHP كود :

Private Sub Command1_Click()

If InStr(1, Text1.Text, vbCrLf) <= 0 Then
   Text1.Text = Text1.Text & "Test"
   Exit Sub
End If

Dim TextBoxLines() As String
Dim I As Integer

TextBoxLines = Split(Text1.Text, vbCrLf)

Text1.Text = ""

For I = 0 To UBound(TextBoxLines)
    If Trim$(TextBoxLines(I)) <> "" Then
       TextBoxLines(I) = TextBoxLines(I) & "Test"
       Text1.Text = Text1.Text & TextBoxLines(I)
       If I <> UBound(TextBoxLines) Then Text1.Text = Text1.Text & vbCrLf
    End If
Next

End Sub