Option Explicit
Sub AutoNew()
  Create_Reset_Variables
  CallUF
lbl_Exit:
Exit Sub
End Sub
Sub CallUF()
Dim oFrm As frmSurvey
Dim oVars As Word.Variables
Dim strTemp As String
Dim oRng As Word.Range
Dim i As Long
Dim strMultiSel As String
  Set oVars = ActiveDocument.Variables
  Set oFrm = New frmSurvey
  With oFrm
    .Show
      oVars("varGrpName").Value = .txtGrpName
      oVars("varCurrentPY").Value = .txtCurrentPY
      oVars("varPriorPY").Value = .txtPriorPY
      oVars("varPYMonth1").Value = .txtPYMonth1
      oVars("varPYMonth2").Value = .txtPYMonth2
    Else
      MsgBox "Form cancelled by user"
    End If
  End With
  Unload oFrm
  Set oFrm = Nothing
  Set oVars = Nothing
  Set oRng = Nothing
lbl_Exit:
  Exit Sub
End Sub