Επιλογή φόρμας

[pm4698]

Καλησπέρα σας!
Έχω το εξής:
Θέλω να πατάω ένα κουμπί και να μου εμφανίζει ένα MsgBox από το οποίο θα έχω 4 επιλογές (το κείμενο και δίπλα σε κάθε κείμενο ένα checkbox). Κάθε επιλογή αντιστοιχεί σε και σε μία φόρμα.
Με το που επιλέγω ένα checkbox τότε θέλω το όνομα της αντίστοιχης φόρμας να αποθηκεύεται σε ένα string για παράδειγμα και έπειτα, αυτό το string να το χρησιμοποιήσω για το άνοιγμα της φόρμας.

Ένα στο περίπου παράδειγμα είναι το εξής:

'public strInput As String 'Καταχώρηση ονόματος
Private button_name_Click()


Dim strInput1 As CheckBox 'Επιλογή 1ης φόρμας
Dim strInput2 As CheckBox 'Επιλογή 2ης φόρμας
Dim strInput3 As CheckBox 'Επιλογή 3ης φόρμας
Dim strInput4 As CheckBox 'Επιλογή 4ης φόρμας
φόρμας
Dim strMsg As String

Beep
strMsg = "Παρακαλώ, επιλέξτε την φόρμα που θέλετε να ανοίξετε"
MsgBox "Φόρμα1" & vbCrLf & vbLf & strInput1 & _
"Φόρμα2" & vbCrLf & vbLf & strInput2 & _
"Φόρμα3" & vbCrLf & vbLf & strInput3 & _
"Φόρμα4" & vbCrLf & vbLf & strInput4 & _
"", _
vbInformation, "Επιλογή φόρμας"

strInput = InputBox(Prompt:=strMsg, title:="Επιλογή φόρμας στοιχείων")

if me.strInput1.value= true then
strInput = "Φόρμα1 & "'"
else if me.strInput2.value= true then
strInput = "Φόρμα2 & "'"
else if me.strInput3.value= true then
strInput = "Φόρμα3 & "'"
else if me.strInput4.value= true then
strInput = "Φόρμα4 & "'"
end if
end if
end if
end if

end sub

Άρα στην μεταβλητή strInput θα αποθηκεύεται κάθε φορά το όνομα της φόρμας που θέλω.
Έπειτα όταν θέλω να την ανοίξω θα γράφω:
DoCmd.OpenForm "strInput", , , , , ,

Γίνεται κάτι τέτοιο?
Αν ναι, η σύνταξη του κώδικα που έχω γράψει είναι σωστή?

Ευχαριστώ εκ των προτέρων