Userform Scroll bars

Can't make the scrollbar show until I click on textbox? the textbox has a lot of data but you have to click to show bar.

With TextBox1
      .ScrollBars = fmScrollBarsVertical
      .EnterFieldBehavior = fmEnterFieldBehaviorRecallSelection
        .SelStart = 0
        .SelLength = 0
    End With

update this code

Private Sub TV_Click()
    If NodeSelected = False Then Exit Sub
    Set xNode = TV.SelectedItem
    SelectNode xNode
    Me.Label1.Caption = xNode.FullPath
    Me.Label2.Caption = xNode.Text
    mRowNum = Val(Right(xNode.Key, Len(xNode.Key) - 3))
    UdFlag = False
    
    With Me.TextBox1
        .SetFocus
        .Text = Wb.Sheets(ShtName).Range("F" & mRowNum).Value
        .SelStart = 0
    End With
    Me.Repaint
    
    TV.SetFocus
    Me.TextBox2.Text = Wb.Sheets(ShtName).Range("G" & mRowNum).Value
    
    UdFlag = True
End Sub