16-01-17, 10:24 PM
او ضيف ذلك الشرط
ElseIf UBound(NameParts) = 3 Then
Text2.Text = Trim$(NameParts(0))
Text3.Text = Trim$(NameParts(1))
Text4.Text = Trim$(NameParts(3))
ElseIf UBound(NameParts) = 3 Then
Text2.Text = Trim$(NameParts(0))
Text3.Text = Trim$(NameParts(1))
Text4.Text = Trim$(NameParts(3))


