hocam kusura bakmayın ama sizin yaptığınız mantıkla G4 adında bir metin kutusu ekledim devamını getirmek adına ama cıkamadım ısın ıcınden

Dim ARA As String
ARA = Me.arama.Text
''''''''''''''''''''''''''''''''''
A1 = InStr(ARA, "%")
If A1 = 0 Then Me.G1 = ARA: GoTo 120
Me.G1 = Left(ARA, A1 - 1)
If Len(G1) + 1 = Len(ARA) Then GoTo 120
ARA = Right(ARA, Len(ARA) - Len(G1) - 1)
''''''''''''''''''''''''''''''''
A1 = InStr(ARA, "%")
If A1 = 0 Then Me.G2 = ARA: GoTo 120
Me.G2 = Left(ARA, A1 - 1)
If Len(G1) + 1 = Len(ARA) Then GoTo 120
'''''''''''''''''
A1 = InStr(ARA, "%")
If A1 = 0 Then Me.G3 = ARA: GoTo 120
Me.G3 = Left(ARA, A1 - 1)
If Len(G1) + 1 = Len(ARA) Then GoTo 120
''''''''''''''''''''''''''''''''
A1 = InStr(ARA, "%")
If A1 = 0 Then Me.G4 = ARA: GoTo 120
Me.G3 = Left(ARA, A1 - 1)
120
Me.Liste29.Requery


bu kodun neresinde hata yapmısım yardımcı olmanız mumkun mu acaba