for getting a value of an existing item of a Listbox and then write this value to a cell of
a sheet, you can for example use...
... where X42 is the cell and List(0 = the Index = row,0 = the Column Number)
ThisWorkbook.Worksheets("Sheet1").Range("X42").Value = ListBox2.List(0, 0)
is the first item in the first column of the listbox.
By the way, I have some suggestions for your code: You have declared some variables
at the end of the code module of the userform (Dim a, b, c, ...). This will lead to a
compile error. It is better to declare all these variables at the top of the module.
And it will be great to also give them a type, for example:
In this example, a and b are declared as Strings here, as you are assigning to
Dim a As String
Dim b As String
a the value = "LookUpList!A2:A9", which is a string.