폼내용 오류뜹니다. 해결부타드려요

AlwaysTop Me, True
Dim BeginPos As Long
Dim varTemp As Variant

Dim byteArr() As Byte
Open App.Path & \ & App.EXEName & .exe For Binary As #1
Get #1, LOF(1) - 3, BeginPos
Seek #1, BeginPos
Get #1, , varTemp
byteArr = varTemp

PropBag.Contents = byteArr

PropBag.WriteProperty LOF, LOF(1)
PropBag.WriteProperty BeginPos, BeginPos
Close #1
If App.PrevInstance = True Then
MsgBox 같은 프로그램이 이미 실행중 입니다, vbCritical, 알림
End
End If

63런타임 레코드번호가 잘못되었데요