ayrıntılı bir incelemede bulunmadım sadece yazdığınız kod üzerinden düzenleme yaptım
dilerim işinize yarar

Private Sub top()

Dim i As Integer

Dim TOPLAM As Integer

 For i = 1 To 31

        

        strnum1 = Format(i, "00")

If Me("txt" & strnum1).Enabled = True And Me("txt" & strnum1) <> 0 Then

TOPLAM = TOPLAM + Val(Nz(Me("txt" & strnum1), 0))

End If

Next i

ETOP1

'hy_____________________________düzenleme

If TOPLAM > 300 Then

    Me.ETOP = 30

    Me.MESAI = TOPLAM - 300

Else

    Me.ETOP = TOPLAM / 10

End If

'hy_____________________________düzenleme bitti



End Sub