Answer a function with a string

Just out of interest, why does this not work? Is there a way for it to work?

Private Sub CommandButton1_Click()
Dim Answer As String
Answer = TextBox1.Text
Sheet2.Visible = Answer
End Sub