Dim f As Integer
Dim rutmonster(15, 15) As String
Dim strTemp As String
Dim FileName As String

FileName = App.Path & "\map1.txt"

f = FreeFile
Open FileName For Input As f
X = 0
Do While Not EOF(f)
Y = 0
Line Input #f, strTemp
Do While strTemp <> ""
If InStr(1, strTemp, "|") > 0 Then
rutmonster(X, Y) = Left(strTemp, InStr(1, strTemp, "|") - 1)
strTemp = Mid(strTemp, InStr(1, strTemp, "|") + 1)
Else
rutmonster(X, Y) = strTemp
strTemp = ""
End If
Y = Y + 1
Loop
X = X + 1
Loop
Close f