Option Compare Database Option Explicit Public Sub MessageBox(ByVal iMessage As String) MsgBox (iMessage) End Sub