[vbnet]

.....

محاولة (قد يكون لها عيوب)

ضع Button وإثنان TextBox وواحد Label بنفس التريب الذي موضوعك

كود :

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.Split
    t1 = If(s(s.Length - 1).StartsWith("ال"), s(s.Length - 1)(2), s(s.Length - 1)(0))
    t2 = If(Me.TextBox2.Text.StartsWith("ال"), Me.TextBox2.Text(2), Me.TextBox2.Text(0))
    t3 = If(Me.TextBox1.Text.StartsWith("ال"), Me.TextBox1.Text(2), Me.TextBox1.Text(0))

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

.....