Copy ข้อมูลได้ แต่มาไม่ครบขาดไปเยอะ เช่น ไปโรงเรียนแต่เช้า จะcopy ได้แค่ ไปโรงเรีย ประมาณนี้ วอนผู้รู้ช่วยด้วยครับ ไม่แน่ใจว่าเกิดจากอะไร ข้อมูลยาวเกินไปหรือเปล่าครับ

ListBox ชื่อ lstResults มี 2 Column
TextBox มี 2 ตัว txtQuestion และ txtAnswer

Private Sub lstResults_Click()
On Error GoTo Result_Err
Dim RowNumber As Integer
RowNumber = Me.lstResults.ListIndex + 1
txtQuestion = Me.lstResults.Column(0, RowNumber)
txtAnswer = Me.lstResults.Column(1, RowNumber)
Result_Err:
                    If Err.Number <> 0 Then
                                    MsgBox "Error Number" & " " & Err.Number & " " & Err.Description, vbCritical, "Error"
                                    Exit Sub
                    End If
End Sub