Sub tachkytu()
Dim kytu As String
kytu = Range("b5").Value 'B5: chuoi can tach
Range("b6").Value = Mid(kytu, 1, 4) 'b6 la vi tri tach
End Sub