RE:Almacenar datos en una matriz de cadenas
Pueba con estas lineas de código:
dim Apunt as integer
dim Texto as string
dim strArray (0) as string
Apunt = Freefile ' Cogemos el siguiente apuntador libre a archivo
Open [Ruta de archivo] For Input Access Read As #Apunt
do while not eof(Apunt) ' Recorremos hasta final de archivo
Line Input #APUNT, Texto ' Leemos la línea de texto
strArray(Ubound(strArray)) = texto ' Guardamos en el arrray
if not eof(Apunt) then
redim preserve strArray(Ubound(strArray)+1)
end if
loop
Close #Apunt
Atención, en este ejemplo se guardan las lineas de texto del archivo, si tu quieres guardar mediante otro concepto te recomiendo que le heches un vistazo a la ayuda de VB.
Un saludo