simulate "Enter" key to transfer data

Try:

Private Sub ListBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
            [Pcode].Value = Me.ListBox1.Value
            Unload Me
End If
End Sub

p.s. please wrap your code into CODE tag.