opdatere Textbox når der vælges en mulighed i Listbox

Det der mangler er at når man vælger i Listbox'en "lstKortType" skal den opdatere textbox'ene med de eks. oplysninger...

Her er et udklip af den kode jeg har brugt:

Private Sub cmdOK_Click()
Dim i As Integer
Dim kopidata As String
    i = lstKortType.ListIndex + 1
     
    kopidata = "B" + LTrim(Str(Int(i + 3)))
    Range(kopidata).Value = TxtA.Value
    kopidata = "C" + LTrim(Str(Int(i + 3)))
    Range(kopidata).Value = txtB.Value
    kopidata = "E" + LTrim(Str(Int(i + 3)))
    Range(kopidata).Value = txtC.Value
    kopidata = "F" + LTrim(Str(Int(i + 3)))
    frmMAT_DEL.Hide
End Sub

Her henter den oplysningerne der står pt. i felterne, men jeg mangler lige at den opdatere når man skifter (det skal da stå i _Click() og ikke _Change() ikke?):

Private Sub lstKortType_Click()

  kopidata = "B" + LTrim(Str(Int(i + 3)))
  TxtA.Text = Range(kopidata)
  kopidata = "C" + LTrim(Str(Int(i + 3)))
  txtB.Text = Range(kopidata)
  kopidata = "E" + LTrim(Str(Int(i + 3)))
  txtC.Text = Range(kopidata)
End Sub