Userform - help with initialize

[Macster]

Hi,

I have trouble with userform, my textbox is not filled out unless I click on it. I want it to automatically be filled when I initialize it.

Private Sub TxtBox_Change()

Dim Wks As Worksheet
Set Wks = Worksheets("Activity")
Nummer = Wks.Range("AB121").Value
TxtBox.Text = WorksheetFunction.CountIf(Wks.Range("F1:F1000"), Nummer)
End Sub

Private Sub UserForm1_Initialize()
TxtBox
End Sub