Snippet 1:

 ' Add text box to list1
 List1.AddItem Text1.Text


Snippet 2:

 ' Set up storage for variables
 Dim sEnding As String: sEnding = ""
 Dim ix As Integer: ix = 0

 ' Blank list 2
 List2.Clear

 ' Figure out which ending
 If Option1.Value Then
  sEnding = "ING"
 ElseIf Option2.Value Then
  sEnding = "ED"
 ElseIf Option3.Value Then
  sEnding = "S"
 End If

 ' Copy each word + ending into list2
 For ix = 0 To List1.ListCount - 1
  List2.AddItem List1.List(ix) & sEnding
 Next ix
 
this is txt file 