if nombre_matriz = "asc_files" then
     ReDim Preserve asc_files(UBound(nombre_matriz()) + 1)
else
     ReDim Preserve dxf_files(UBound(nombre_matriz()) + 1)
end if

Select case Nombre_Matriz
     case "asc_files"
           ReDim Preserve asc_files(UBound(nombre_matriz()) + 1)
     case "dxf_files"
          ReDim Preserve dxf_files(UBound(nombre_matriz()) + 1)
    case "otra_matriz"
          ReDim Preserve otra_matriz(UBound(nombre_matriz()) + 1)
    case else
          msgbox "error"
end select

 seek #num
FilesV(i) = Input(Parametros(1), #num)

Private Sub Form_Resize()
    
    Dim i As Integer, h As Long, w As Long
    Dim s As String
    
    Label1.Height = Me.ScaleHeight
    Label1.Width = Me.Width
    
    i = 8
    h = 0
    s = Label1.Caption
    
    Printer.Font = Label1.Font
    Printer.FontSize = 8
    
    While h < Me.ScaleHeight And w < Me.ScaleWidth
        
        i = i + 1
        
        h = Printer.TextHeight(s)
        w = Printer.TextWidth(s)
        
        Printer.FontSize = i
        
    Wend
    
    Label1.FontSize = i
    
End Sub