AJUDA URGENTE! BOLAO DE FUTEBOL

        pontos = 0
        golsa1 = 0
        golsb1 = 0
        golsa1 = aposta!golsa
        golsb1 = aposta!golsb
        If txtrodada.Text = aposta!RODADA And aposta!jogo = z Then
        If aposta!ok = [Ô]1[Ô] Then
            [ô]se gol_A_Tabela > Golb_Tabela e Gola.txt > golb. txt entao
            If golsa1 > golsb1 And Val(golsa(IDX1).Text) > Val(golsb(IDX1).Text) Then
            pontos = 1
              [ô]Se gol_A_tabela = Gola.txt e Golb_Tabela = Golb.txt entao
              If golsa1 = Val(golsa(IDX1).Text) And golsb1 = Val(golsb(IDX1).Text) Then
              pontos = pontos + 2
              End If
            End If
            [ô]se gol_A_TAbela < golb_tabela e gola.txt < golb.txt entao
            If golas1 < golsb1 And Val(golsa(IDX1).Text) < Val(golsb(IDX1).Text) Then
            pontos = 1
            [ô]Se gol_A_tabela = Gola.txt e Golb_Tabela = Golb.txt entao
              If golas1 = Val(golsa(IDX1).Text) And golsb1 = Val(golsb(IDX1).Text) Then
              pontos = pontos + 2
              End If
            End If
            [ô]se gol_a_tabela=golb_tabela e gola.txt = golb.txt entao
            If golsa1 = golsb1 And Val(golsa(IDX1).Text) = Val(golsb(IDX1).Text) Then
            pontos = 1
            [ô]se gol_tabela_a = gola.txt e golb_tabela = golb.txt entao
              If golsa1 = Val(golsa(IDX1).Text) And golsb1 = Val(golsb(IDX1).Text) Then
              pontos = pontos + 2
              End If
            End If