Forms :: Open Form From Combo Box

Im using the below code to open a from depending on what option is selected on a combobox.

Code:

Private Sub DirectPCombo_Click()
Dim cboVal As String
Dim stDocName As String
cboVal = Me.DirectPCombo.Value
Select Case cboVal
Case "One"

[code]....

If you select the first item [One] it will open the correct form [TestOne]. But when you select any of the others an error comes up saying that the name is no a form. So I added

Code:
DoCmd.OpenReport stDocName

But the no items would select.I know If split the reports form the forms and make two comboboxes it would work, but it would be better it both could be in the same combobox.