Tách họ và tên trong VBA Excel

Cách lập trình tách họ và tên bằng code VBA

Sub Button1_Click()
   ' LAP TRINH VIEN 01
   hoten = Range("C5").Value
   Dim arrhoten() As String
   arrhoten = Split(hoten, " ")
   ptCuoi = UBound(arrhoten, 1)
   
   Ho = ""
   For i = 0 To ptCuoi - 1
        Ho = Ho & " " & arrhoten(i)
   Next i
   Ten = arrhoten(ptCuoi)
   MsgBox "Ho: " & Ho
   MsgBox "Ten: " & Ten
End Sub
Sub Button2_Click()
   ' LAP TRINH VIEN 02
   hoten = Range("C5").Value
   Dim arrhoten() As String
   arrhoten = Split(hoten, " ")
   MsgBox "Ho: " & arrhoten(0) & " " & arrhoten(1)
   MsgBox "Ten: " & arrhoten(2)
End Sub

* Bạn chạy thử ví dụ và xem lập trình viên nào làm đúng