Here is the solution to call a procedure or module in another procedure or module VBA Excel.

Code from Module 1.

 Public Sub ScriptFooter(FileNum As Integer)
            Print #FileNum, "</tbody></table>"
End Sub

 Code from Module 2.

Public Sub CommandButton1_Click()
'code written on 21/01/2010 by Pavandeep Puddupakkam
  
    Dim FileNum As Integer
   Sheets("Search").Activate
    FileNum = FreeFile ' next file number
    Open "C:\XXX.txt" For Output As #FileNum ' creates the file if it doesn't exist
              Call Module1.ScriptFooter(FileNum)
     Close #FileNum ' close the file
    
End Sub