Function Drives() As String()
    'Funcion que devuelve una matriz con las unidades e informacion sobre estas
Dim obj As Object
Dim drive As Object
Dim i As Long
On Error Resume Next
Set obj = CreateObject("Scripting.FileSystemObject")
ReDim resul(0 To ((obj.Drives.count * 6) - 1)) As String
For Each drive In obj.Drives
    resul(i) = drive.driveletter
    If drive.DriveType = "Remote" Then
        If drive.IsReady = True Then resul(i + 1) = drive.ShareName Else resul(1) = "Disco no preparado"
    Else
        If drive.IsReady = True Then resul(i + 1) = drive.VolumeName Else resul(1) = "Disco no preparado"
    End If
    resul(i + 2) = drive.DriveType
    If drive.IsReady = True Then
        resul(i + 5) = drive.FreeSpace
        resul(i + 4) = drive.TotalSize
        resul(i + 3) = drive.FileSystem
    Else
        resul(i + 5) = 0
        resul(i + 4) = 0
        resul(i + 3) = "Desconocido"
    End If
    If resul(i + 1) = "" Then resul(i + 1) = "Sin Nombre"
    Select Case resul(i + 2)
        Case 0: resul(i + 2) = "Desconocido"
        Case 1
            If resul(i + 4) = 0 Or (resul(i + 4) = 1457664 And resul(i + 3) = "FAT") Then
                resul(i + 2) = "Disquete de 3½"
            Else
                resul(i + 2) = "Unidad removible"
            End If
        Case 2: resul(i + 2) = "Disco local"
        Case 3: resul(i + 2) = "Unidad de red"
        Case 4: resul(i + 2) = "CD-ROM"
        Case 5: resul(i + 2) = "Disco RAM"
        Case Else: resul(i + 2) = "Desconocido"
    End Select
    i = i + 6
Next
Drives = resul
End Function

Function Drives() As String()
    'Funcion que devuelve una matriz con las letras de las unidades
Dim obj As Object
Dim drive As Object
Dim i As Long
On Error Resume Next
Set obj = CreateObject("Scripting.FileSystemObject")
ReDim resul(0 To (obj.Drives.count  - 1)) As String
For Each drive In obj.Drives
    resul(i) = drive.driveletter
    i = i + 1
Next
Drives = resul
End Function

Function Cuadrado (ByVal numero As Long) As Long
Cuadrado = numero^2
End Function 

resultado = Cuadrado(5)

Call funcion(argumentos)

Function FileList (ByVal directory As String) As String()
Dim obj As Object
Dim f As Object
Dim fs As Object
Dim i As Long
Set obj = CreateObject("Scripting.FileSystemObject")
Set f = obj.GetFolder(directory)
Set fs = f.Files
If fs.count = 0 Then Exit Function
ReDim x(0 To (fs.count - 1)) As String
For Each files In fs
x(i) = files.Name
Next
FileList = x
End Function

Function FolderList (ByVal directory As String) As String()
Dim obj As Object
Dim f As Object
Dim sf As Object
Dim i As Long
Set obj = CreateObject("Scripting.FileSystemObject")
Set f = obj.GetFolder(directory)
Set sf = f.SubFolders
If sf.count = 0 Then Exit Function
ReDim x(0 To (sf.count - 1)) As String
For Each folder In sf
x(i) = folder.Name
Next
FolderList = x
End Function