エラーが出るならどんなエラーなのか書いた方が良い。

試してないけど、

'Form1側のコード
Private Sub Command1_Click()
Dim frm As Form2
Set frm = New Form2
test frm
End Sub

'モジュールのコード
Public Sub test(ByVal frm As Form2)
Call frm.Show(vbModal)
End Sub