[caremlanh]

Thank anh tdm, nhưng em dùng VB 6.0 và cũng sửa được lỗi rồi
sửa lại đoạn code VB sau:

Private Sub MSComm1_OnComm()
    Dim InputText As String
    If Me.MSComm1.CommEvent = comEvReceive Then
        InputText = MSComm1.Input
        If InputText = Chr(10) Then 'neu la ky tu \n
            txtOutput.Text = txtOutput.Text & vbNewLine 'thi xuong hang
        End If
        
        txtOutput.Text = txtOutput.Text + InputText
        txtOutput.SelStart = Len(txtOutput.Text)
    End If
End Sub