Olá Colegas!

criei este post separado porque os outros já estão muito poluídos.
desejo o senguinte:
no codigo VBA que postei abaixo,
gostaria que filtrasse por extensão (bmp, jpg, todos) e pegasse esse valor selecionado no OptionButton e armazenasse numa variavel no VBA, e assim, listasse só os arquivos correspondentes à extensao selecionada.
o optionButton fica inserido direto na celula, nao existe form.

eu nao sei como referenciar o controle do OptionButton inserido na celula no vba pra que ele passe o valor pra uma string por exemplo.
por exemplo:

Valor as String, Valor = OptionButton1.value
outo exemplo:

eu não sei fazer referencia no VBA ao OptionButton inserido na celula.
se eu soubesse, escreveria um codigo parecido com esse:

If optionBbuttomJPG.value = "*.JPG" then sTRING = optionBbuttomJPG.value

o codigo que uso é FSO FileSystemObject
gostaria que fizessem isso no meu codigo abaixo, porque é um codigo FSO bastantes pequeno e claro.
------------------------------------------------------------------------------------------------------------
Sub Sample2()
ShowFolderList2 ("C:teste")
End Sub
-------------------------------------------------------------------------------
Sub ShowFolderList2(folderspec)
Dim fs, f, f1, fc, s, sFldr
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec)
Set fc = f.SubFolders
For Each f1 In fc
If Right(f1, 1) <> "" Then ShowFolderList2 f1 & "" Else ShowFolderList2 f1
Next
Set fc = f.Files
For Each f1 In fc
Debug.Print folderspec & f1.Name

With Worksheets("Visualizador")
Worksheets("Visualizador").ListBox2.AddItem folderspec & f1.Name
End With

Next
End Sub