Function PosFind2(filepath) As String
Dim f611 As Long
Dim data As String

Dim myRegExp As New RegExp
With myRegExp
.MultiLine = False
.Global = True
.IgnoreCase = False
.Pattern = "Е"
End With

Dim colMatches As MatchCollection

f611 = FreeFile
Open filepath For Input As #f611
r =  0 

Do Until EOF( 1 )
Line Input #f611, data

If myRegExp.Test(data) Then
Set colMatches = myRegExp.Execute(data)

PosFind2 = colMatches( 0 ).FirstIndex

Exit Do

End If

Loop

Close #f611

End Function