code chỉnh giá trị của TextBox đập vào Sheet là Text

[NguyenthiH]

Em có form nhập liệu, trong form có TexBox đơn Hàng (tb_ĐH), khi em gỏ đơn hàng là DKT6534 vào tb_ĐH và đập vào ListBox1 và sau đó ghi vào sheet là dạng text (Cánh Phải), nhưng khi em gỏ 6534 vào tb_ĐH thì đập vào ListBox1 và sau đó ghi Sheet là Số (Cánh trái).
Mong mọi người chỉnh code cho khi nhập chữ hoặc số đều đập vào sheet là dạng text

        With ListBox1
            Sheet5.Cells(irow + N, 5) = UCase(.List(I, 1))                         'Don Hang  <-------------chỉnh dùm em chổ này sao luôn đập vào sheet là dạng Text
            Sheet5.Cells(irow + N, 6) = Application.Proper(.List(I, 2))     'ten phu lieu
            Sheet5.Cells(irow + N, 7) = Application.Proper(.List(I, 3))     'don vi tinh
            Sheet5.Cells(irow + N, 8) = CDbl(.List(I, 4))                   'so luong nhap
        End With
        N = N + 1

 

[befaint]

Cách 1: Định dạng cột cần ghi tên đơn hàng là text trước khi gán xuống.

Cách 2: Ô ghi đơn hàng = "'" & UCase(.List(I, 1))

 

[NguyenthiH]

Anh @befaint cho em hỏi có dấu gì trong dấu nháy kép vậy anh?? (Cách 2)
Ah là dấu nháy đơn.
Cám ơn anh @befaint!