Jasen

Option Explicit

Sub MakeAMessagebox(msg As String)

'**********************************************************************************
'                                                                                                     *
'* msg = a string value which should be displayed in a message box    *
'*                                                                                                    *
'**********************************************************************************

MsgBox msg

End Sub


Sub ShowTheMessage()

MakeAMessagebox "Some Random Text"

End Sub