Function TachTenTinh(Txt As String)
Dim dem As Integer
Dim temp As String
dem = 0
temp = Txt
If LCase(Right(Txt, 11)) = "ho chi minh" Then
TachTenTinh = "ho chi minh"
Exit Function
End If
If LCase(Right(Txt, 3)) = "hue" Then
TachTenTinh = "hue"
Exit Function
End If
For i = Len(temp) To 1 Step -1
If InStrRev(temp, " ") <> 0 Then
dem = dem + 1
If dem = 2 Then
TachTenTinh = Right(Txt, Len(Txt) - InStrRev(temp, " "))
Exit For
End If
temp = Trim(Left(Txt, InStrRev(temp, " ")))
End If
Next
End Function
