Gewünschter Wert wird in TextBox nicht eingetragen

Private Sub CommandButton16_Click()
Dim wks As Worksheet
Set wks = Workbooks("Adressbuch.xls").Worksheets("Spielplan")
If wks.Cells(3, 2) = "1. KW" And wks.Cells(3, 3) = "Mo" Then
TextBox229.Text = wks.Cells(3, 5)
End If
End Sub

Private Sub CommandButton16_Click()
Dim wks As Worksheet
Set wks = Workbooks("Adressbuch.xls").Worksheets("Spielplan")
If wks.Cells(3, 2) = "1. KW" Then
TextBox229.Text = wks.Cells(3, 5)
End If
End Sub