Cómo leer datos de un archivo en VBA y asignarlos a una matriz bidimensional

Función pública readFileToVariable(strFileName)

'============================== = ==================

' Leer archivo de texto en una variable

' @Param strFileName Ruta del archivo de cadena

' @Retrun String El contenido del archivo de texto

' @Ver 0.1

' @Date 2015.9.25

'==== == ==========================================

Const ForReading = 1 'Constante de solo lectura de archivo

Dim objFso, objFile 'FSO, archivo

Dim strFile 'Contenido del archivo

Set objFso = CreateObject(" Scripting.FileSystemObject ")

Establecer objFile = objFso.OpenTextFile(strFileName, ForReading)

readFileToVariable = objFile.ReadAll

objFile.Close

Función final

Función pública readFileToArray(strFileName)

'========================== === ===================

'Leer archivo de texto en una matriz

' @Param strFileName Ruta del archivo de cadena

'@Retrun Contenido del archivo de texto de matriz

'

@Ver 0.3

' @Date 2015.9.29

' @Comment

' Corrige el error de escritura incorrecta del nombre de la función

' Por klsjnh@qq.com

'====================================== === ==========

Dim strFile

strFile = readFileToVariable(strFileName)

readFileToArray = Split(strFile, vbCrLf)

Función final