Why not just pass the actual form as an object instead of its name:
Sub Macro1()Call RandomFunctions(Form1)
End Sub




Sub Macro2()
Call RandomFunctions(Form2)
End Sub




Sub RandomFunctions(VariableForm)


Sheets("Sheet1").Range("A1").Value = VariableForm.TextBox1.Value


End Sub