Kinh nghiệm - Thủ thuật

FunctionCatTen(HoVaTen As String) As String

      Dim l, i As Integer

      HoVaTen = Trim(HoVaTen)

l = Len(HoVaTen)

      CatTen = ""

      For i = l To 1 Step -1

                  If Mid(HoVaTen, i, 1) = Space(1) Then         

                              k = i

                              Exit For

                  End If

      Next i

      CatTen = Mid(HoVaTen, i + 1)

End Function