Can't make this work.

On cmdButton of frmInputBox.frm I´ve added the following code (My code is between those two »):

Private Sub cmdButton_Click(Index As Integer)

Select Case Index
Case btnOK
ButtonClicked = vbOK
Case btnCancel
ButtonClicked = vbCancel
End Select
»
If btnOK = 1 Then
txtInput.Text = Form2.Text1.Text
End If
»

Me.Hide
Form2.Show
End Sub


This must not be 100 % correct 'cause I can .Show Form2 but nothing appears on Form2's TextBox.

Why?