In menu, can able to Pass parameter using "OnAction" ?

Set MenuItem = NewMenu.Controls.Add _
(Type:=msoControlButton)
With MenuItem
.Caption = "Build Japan"
.FaceId = 0
.OnAction = "Process_frm_GEN (\""JAP\"")" <--- This coding not
works
.BeginGroup = True '~~ Separators in menu
End With


Sub Process_frm_GEN(loSite As String)
MsgBox loSite
End Sub


Also, it is possible pass parameters to form ? I want change Form
Caption and some value.

Sub Process_frm_SIN()
frmProcess_SIN.Show
End Sub