[Resolvido]Como carregar Caixa de combinação com letras das PenDrives

Boa tarde Amigos

Como carrego uma caixa de combinação com a lista dos discos do meu PC, com a função abaixo ?

Tentei chamar assim "fncLocalDisk()" só me aparece a letra c:

Obrigado

Public Function fncLocalDisk() As String
'Créditos Avelino Sampaio
Dim objWMIService As Object
Dim disk
Dim s As String
Set objWMIService = GetObject("winmgmts://localhost")
For Each disk In objWMIService.ExecQuery("select * from Win32_LogicalDisk")
s = s & disk.DeviceID & ";"

Next
If Len(s) > 1 Then fncLocalDisk = s

Set objWMIService = Nothing
End Function

Boa tarde

Ao carregar o Formulário
Me.NomeDaSuaCombo.RowSource = fncLocalDisk()

Dica: AhTeixeira

Olá Assis, na função foi alterada uma linha, que ficou assim:

s = s & disk.DeviceID & ";"