listbox select Item via VBA

[smakatura]

I have a document with a listbox (Name = "ListBox1")

I multiple choices for text in that box to choose from (ex: TextA, TextB....)

I want to use a macro to select "TextA" only (assume nothing is selected before choosing TextA

Once done with other things I am not asking about in this question, I want to unselect TextA (this will leave the listbox with no selections)

 

[ParamRay]

  Sheets("Sheet1").OLEObjects("ListBox1").Object.Value = "TextA"
  Sheets("Sheet1").OLEObjects("ListBox1").Object.Value = Null