[vbnet]

.....

استخدم الأمر Trim لحذف المسافات التي قبل وبعد النص مع كل TextBox (وليس لها علاقة بالمسافة التي في الوسط) كالتالي

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim t1, t2, t3 As Char

    Dim s() As String = (Me.TextBox2.Text.Trim).Split
    t1 = If(s(s.Length - 1).StartsWith("ال"), s(s.Length - 1)(2), s(s.Length - 1)(0))
    t2 = If((Me.TextBox2.Text.Trim).StartsWith("ال"), (Me.TextBox2.Text.Trim)(2), (Me.TextBox2.Text.Trim)(0))
    t3 = If((Me.TextBox1.Text.Trim).StartsWith("ال"), (Me.TextBox1.Text.Trim)(2), (Me.TextBox1.Text.Trim)(0))

    Me.Label1.Text = t1 & " " & t2 & " " & t3
End Sub

.....