Macro: Match Compare Strings

I'm writing quite a large electronic logging program using excel and vba and have hit a snag in one of my subs which reads from a text init file. Let's take a look at the code.

Private Sub ReadInit()
'Opens txt init file, looks for target list, splits line by commas and enters into array

Dim FileNumber As Integer
Dim TargetsRead As Boolean, LastFileRead As Boolean


Set ObjFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = ObjFSO.OpenTextFile(SaveDir & Init)

TargetsRead = False
LastFileRead = False
Do Until objFile.AtEndOfStream 'do until end of file