How to call a procedure or module in another procedure or module VBA Excel

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

How to write a function and call a function in excel macros

Here I am creating a function called  form1(FileNum As Integer) and calling the function in g() using Call form1(FileNum)

Sub form1(FileNum As Integer)
Workbooks.Open ("c:\test\test1.xlsx")
Sheets("Sheet1").Activate
Open "C:\test\test1.html" For Output As #FileNum ' creates the file if it doesn't exist
If Cells(1, 1) <> "" Then
Title = Cells(2, 2)
URL = Cells(1, 2)
Print #FileNum, Cells(1, 2)
Print #FileNum, "<title>"; Title; "</title>"
Print #FileNum, "</head>"
Else
Print #FileNum, "<body>"
End If
End Sub


Sub q()
'code written on 22/01/2010 by Pavandeep Puddupakkam
Dim FileNum As Integer
FileNum = FreeFile ' next file number
Call form1(FileNum)
Print #FileNum, Cells(2, 2)
Close #FileNum ' close the file
End Sub