Foro de programacion

Intento leer el archivo "procesos2.txt"
Que contiene sólo 1 lìnea con el siguiente contenido:

23;34;
Creo una matriz (99,1) para dejar en la posicion (0,0)=23 y (0,1)=34.

No e podido resolverlo, agradecerìa mucho me puedan ayudar.
Dim objFSO

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Dim objTextStream
Dim matriz (99,1)
Dim dato

const strNombreArchivo = "C:\procesos2.txt"
const fsoLectura = 1

If objFSO.FileExists(strNombreArchivo) then
Set objTextStream = objFSO.OpenTextFile(strNombreArchivo, fsoLectura)
Response.Write "El contenido del archivo es:
"
Do While not objTextStream.AtEndOfStream

'va mostrando las líneas que va leyendo
strText = objTextStream.ReadLine
dato = split(strText,";")
switch=0
for proceso = 0 to ubound(dato)
if (switch = 0) then
matriz(0,0) = trim(dato(proceso))
switch=1
else
matriz(0,1) = trim(dato(proceso))
end if

next
Response.Write matriz(0,0) & "
"
Response.Write matriz(0,1) & "
"
loop
objTextStream.Close
Set objTextStream = Nothing
Else
Response.Write strFileName & " No se ha encontrado"
End If

Set objFSO = Nothing

%>