title: Moving user input data from Word to excel (macros)
body: <p>I created a form where the user rates the frequency of a certain event (always, sometimes, rarely, never, N/A) by clicking radio buttons displayed in a table.  The radio buttons are weighted, so if the user selects always, the value for that number of the question is 4 (sometimes = 3, etc.).  I need to take the results from the survey and put it into an excel document that averages the results from many surveys.  Currently I have a text box that prints the numbers st the end of the survey and I copy and paste them into my excel document but I would like to find a better way to do this.  Ideally if I could create a separate plain text document with word containing just the number results from the survey that can be imported into excel that would be perfect.  Below is a sample of my code: how the radio buttons are calculated and how they are printed</p>
  
  <pre><code>Private Sub RadioButtonyj_Click()
      If RadioButtonyj.Value = True Then
  
          num33 = 2
      UpdateRating
      End If
  
  End Sub
  
  Private Sub RadioButtonnj_Click()
      If RadioButtonnj.Value = True Then
  
  
          num33 = 1
      UpdateRating
      End If
  
  End Sub
  
  Private Sub RadioButtonnj1_Click()
      If RadioButtonnj1.Value = True Then
  
  
          num33 = 0
      UpdateRating
      End If
  
  End Sub
  
  Private Sub UpdateRating()
  TextBox2.Text = num1 &amp; vbNewLine &amp; num2 &amp; vbNewLine &amp; _
  num3 &amp; vbNewLine &amp; num4 &amp; vbNewLine &amp; _
  num5 &amp; vbNewLine &amp; num6 &amp; vbNewLine &amp; _
  num7 &amp; vbNewLine &amp; num8 &amp; vbNewLine &amp; num9 &amp; vbNewLine &amp; num10 &amp; vbNewLine &amp; num11 _
  &amp; vbNewLine &amp; num12 &amp; vbNewLine &amp; num13 &amp; vbNewLine &amp; num14 &amp; vbNewLine _
  &amp; num15 &amp; vbNewLine &amp; num16 &amp; vbNewLine &amp; num17 &amp; vbNewLine &amp; num18 &amp; vbNewLine &amp; num19             &amp; vbNewLine _
  &amp; num20 &amp; vbNewLine &amp; num21 &amp; vbNewLine &amp; num22 &amp; vbNewLine &amp; num23 &amp; vbNewLine _
  &amp; num24 &amp; vbNewLine &amp; num25 &amp; vbNewLine &amp; num26 &amp; vbNewLine &amp; num27 &amp; vbNewLine &amp; num28         &amp;     vbNewLine _
  &amp; num29 &amp; vbNewLine &amp; num30 &amp; vbNewLine &amp; num31 &amp; vbNewLine &amp; num32 &amp; vbNewLine &amp; num33
  End Sub
  
  Dim FS As FileSystemObject
  Set FS = New FileSystemObject
  
  
  Dim MyFile As TextStream
  Set MyFile = FS.CreateTextFile("C:\Folder\FileName.txt")
  MyFile.Write num1 &amp; vbNewLine &amp; num2 &amp; vbNewLine &amp; _
  num3 &amp; vbNewLine &amp; num4 &amp; vbNewLine &amp; _
  num5 &amp; vbNewLine &amp; num6 &amp; vbNewLine &amp; _
  num7 &amp; vbNewLine &amp; num8 &amp; vbNewLine &amp; num9 &amp; vbNewLine &amp; num10 &amp; vbNewLine &amp; num11 _
  &amp; vbNewLine &amp; num12 &amp; vbNewLine &amp; num13 &amp; vbNewLine &amp; num14 &amp; vbNewLine _
  &amp; num15 &amp; vbNewLine &amp; num16 &amp; vbNewLine &amp; num17 &amp; vbNewLine &amp; num18 &amp; vbNewLine &amp; num19 &amp; vbNewLine _
  &amp; num20 &amp; vbNewLine &amp; num21 &amp; vbNewLine &amp; num22 &amp; vbNewLine &amp; num23 &amp; vbNewLine _
  &amp; num24 &amp; vbNewLine &amp; num25 &amp; vbNewLine &amp; num26 &amp; vbNewLine &amp; num27 &amp; vbNewLine &amp; num28 &amp; vbNewLine _
  &amp; num29 &amp; vbNewLine &amp; num30 &amp; vbNewLine &amp; num31 &amp; vbNewLine &amp; num32 &amp; vbNewLine &amp; num33
  
  
  
  
  If FS.FileExists("C:\Folder\FileName.txt") Then
  Set MyFile = FS.CreateTextFile("C:\Folder\FileName2.txt")
  End If
  
  If FS.FileExists("C:\Folder\FileName2.txt") Then
  Set MyFile = FS.CreateTextFile("C:\Folder\FileName3.txt")
  End If
  
  If FS.FileExists("C:\Folder\FileName3.txt") Then
  Set MyFile = FS.CreateTextFile("C:\Folder\FileName4.txt")
  End If
  
  If FS.FileExists("C:\Folder\FileName4.txt") Then
  Set MyFile = FS.CreateTextFile("C:\Folder\FileName5.txt")
  End If
  
  If FS.FileExists("C:\Folder\FileName5.txt") Then
  Set MyFile = FS.CreateTextFile("C:\Folder\FileName6.txt")
  End If
  
  
  If FS.FileExists("C:\Folder\FileName6.txt") Then
  Set MyFile = FS.CreateTextFile("C:\Folder\FileName7.txt")
  End If
  
  If FS.FileExists("C:\Folder\FileName7.txt") Then
  Set MyFile = FS.CreateTextFile("C:\Folder\FileName8.txt")
  End If
  
  
  If FS.FileExists("C:\Folder\FileName8.txt") Then
  Set MyFile = FS.CreateTextFile("C:\Folder\FileName9.txt")
  End If
  
  If FS.FileExists("C:\Folder\FileName9.txt") Then
  Set MyFile = FS.CreateTextFile("C:\Folder\FileName10.txt")
  End If
  
  
  If FS.FileExists("C:\Folder\FileName10.txt") Then
  Set MyFile = FS.CreateTextFile("C:\Folder\FileName11.txt")
  End If
  
  If FS.FileExists("C:\Folder\FileName11.txt") Then
  Set MyFile = FS.CreateTextFile("C:\Folder\FileName12.txt")
  End If
  
  If FS.FileExists("C:\Folder\FileName12.txt") Then
  Set MyFile = FS.CreateTextFile("C:\Folder\FileName13.txt")
  End If
  
  If FS.FileExists("C:\Folder\FileName13.txt") Then
  Set MyFile = FS.CreateTextFile("C:\Folder\FileName14.txt")
  End If
  
  If FS.FileExists("C:\Folder\FileName14.txt") Then
  Set MyFile = FS.CreateTextFile("C:\Folder\FileName15.txt")
  End If
  
  
  If FS.FileExists("C:\Folder\FileName15.txt") Then
  Set MyFile = FS.CreateTextFile("C:\Folder\FileName16.txt")
  End If
  
  
  If FS.FileExists("C:\Folder\FileName16.txt") Then
  Set MyFile = FS.CreateTextFile("C:\Folder\FileName17.txt")
  End If
  
  End Sub
  </code></pre>