Excel VBA Overfører ikke data fra listbox1 til regneark

Jeg har 2 listbokse på en form. Jeg får ikke overført teksten fra listbox1 men alle øvrige data. Hvad har jeg gjort forkert i nedenstående kode:
Private Sub CommandButton1_Click()
  Sheets("Posteringer").Activate
        Range("a2").Select
        If Range("a2").Value = "" Then
    Range("a2").Select
    Else
    lastrow = Cells(Rows.Count, "a").End(xlUp).Row
    Range("a" & lastrow + 1).Select
    End If
           
            With ActiveCell
       
        .Value = TextBox1.Text
        .Offset(0, 1).Value = TextBox2.Text
        .Offset(0, 2).Value = TextBox3.Text
        .Offset(0, 3).Value = ListBox1.Text
        .Offset(0, 4).Value = ListBox2.Text
              End With
   
     
End Sub


Private Sub UserForm_Activate()
Label1.Caption = Format(Date, "dd-mm -yyyy")
Label2.Caption = StrConv(WeekdayName(Weekday(Now - 1)), vbProperCase)

With ListBox1
.RowSource = "Debet"
.ListIndex = 0
End With

With ListBox2
.RowSource = "Kredit"
.ListIndex = 0
End With
End Sub