Ayuda visual basic

Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        Dim op As String = e.KeyCode = +"Keys." + Form2.TextBox1.Text
   If op Then
End If
End Sub

private Sub frmWinSamAppMain_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        Select Case e.KeyCode
            Case Keys.F1
                MsgBox("Precionaste f1", MsgBoxStyle.Information, "Irwin238")
            Case Keys.F2
                MsgBox("Precionaste f2", MsgBoxStyle.Information, "Irwin238")
            Case Keys.F3
                MsgBox("Precionaste f1", MsgBoxStyle.Information, "Irwin238")
            Case Keys.Enter
                MsgBox("Precionaste enter", MsgBoxStyle.Information, "Irwin238")
            Case Keys.Escape
                MsgBox("Precionaste esc", MsgBoxStyle.Information, "Irwin238")
        End Select
    End Sub