So why an InputBox and not another control on form for this second value? Be careful with MsgBox or InputBox for user input - difficult to validate input. An example:
Code:
Dim strTest As String
strTest = "?"
While strTest = "?"
strTest = InputBox("Select Test Method (Enter 1 thru 5): " & vbCrLf & _
"1. T84" & vbCrLf & "2. T100" & vbCrLf & "3. T209" & vbCrLf & "4. T228" & vbCrLf & "5. T304", "Edit Calibrations", "?")
If strTest Like "[1-5]" Then
If strTest = 4 Then
DoCmd.OpenForm "PycCal"
Else
DoCmd.OpenTable "PycCal" & Choose(strTest, "T84", "T100", "T209", "T228", "T304")
End If
ElseIf strTest <> "" Then
MsgBox "Not a valid entry. Select 1 through 5 or Cancel."
strTest = "?"
End If
Wend