Private Sub UserForm_Click()

    Dim strTestValue As String
    
    strTestValue = "This is the test value"
    
    With UserForm2
        .Label1.Caption = strTestValue
        .Show
    End With

End Sub