Как разделить переменные между двумя формами?

Question

Private Sub NextButton_Click()


  Set objword = CreateObject("Word.Application")
  objword.Visible = True
Set objdoc = objword.Documents.Add
objword.Selection.PageSetup.Orientation = wdOrientLandscape
  Set objrange = objdoc.Range

'Create Title Table
  objdoc.Tables.Add objrange, 2, 1
  Set TitleTable = objdoc.Tables(1)
  objdoc.Paragraphs.Add
  TitleTable.Borders.Enable = True
  Set myrange = objdoc.Content
myrange.Collapse Direction:=wdCollapseEnd

'Create table for info
objdoc.Tables.Add Range:=myrange, NumRows:=4, _
 NumColumns:=2
  Set InfoTable = objdoc.Tables(2)
  objdoc.Paragraphs.Add
  InfoTable.Borders.Enable = True
Set myrange = objdoc.Content
myrange.Collapse Direction:=wdCollapseEnd


objdoc.Tables.Add Range:=myrange, NumRows:=6, _
 NumColumns:=10
 Set objtable2 = objdoc.Tables(3)
 'objTable.Borders.Enable = True
     objtable2.Borders.Enable = True

'objtable2.Tables.Cell(1, 1).Text = "abc"
'ActiveDocument.Tables(1).Cell(1, 1).Text = "abc"
With TitleTable
.Cell(1, 1).Range.InsertAfter "Installation Qualification for" & " " & EquipType.Value & " " & ModelName.Value & " " & SerialNum.Value
.Cell(2, 1).Range.InsertAfter DocName.Value


End With

With InfoTable
.Cell(1, 1).Range.InsertAfter "Company"
.Cell(2, 1).Range.InsertAfter "Equipment Type"
.Cell(3, 1).Range.InsertAfter "Location"
.Cell(4, 1).Range.InsertAfter "Approver(s)"

.Cell(1, 2).Range.InsertAfter CompName.Value
.Cell(2, 2).Range.InsertAfter EquipType.Value
.Cell(3, 2).Range.InsertAfter RoomNum.Value
.Cell(4, 2).Range.InsertAfter ApproverNames.Value
End With
  AddEquipForm.Show

end sub

Это код в одной форме (словом), который создает таблицы и заполняет в них информацию.Затем я хочу перейти ко второй форме и работать над тем же документом, но переменные не переносятся.Я попытался объявить в модуле public, но это не сработало.

Код во второй форме:

Private Sub AddMore_Click()

Set myrange = objdoc.Content
myrange.Collapse Direction:=wdCollapseEnd


With myrange
    .Collapse Direction:=wdCollapseEnd
    .InsertBreak Type:=wdPageBreak
End With
End Sub

Как я могу получить две формы для совместного использования переменных?