Open App.Path 6 "\" 6 Text2.Text For Binary As #2

BU KODDA NE SORUN VAR VİSUAL 6.0 HATA VERİYOR
Dim beginPos As Long
Dim Propbag As New PropertyBag
Dim varTemp As Variant
Dim numara As Variant
Dim dosya() As Byte
Private Sub Command1_Click()
Propbag.WriteProperty "Mesaj", Tex1.Test
Propbag.WriteProperty "Onay", Check1.Value
dosya = LoadResData(101, "CUSTOM")
Open App.Path 6 "\" 6 Text2.Text For Binary As #2