Visual Basic - Espacio en pila insuficiente

Hola a todos!!

He hecho éste código en visual para buscar todos los artículos con un determinado código de venta y así poder tomar el precio de cada artículo, sumarlos todos y mostrarlos en un txt que indique el precio total de la venta.
Ej: Tabla articulos en carrito
codventa codarticulo precioUnidad cantidad preTotArtic
1 1A 10 1 10
1 2A 20 3 60
2 1B 15 1 15
1 3M 30 2 60

Lo que intento hacer es mostrar lo siguiente:

PRECIO TOTAL DE LA VENTA 1 ---> 130

El código mío es el siguiente:

Private Sub Command3_Click()
Dim strpre As String
Dim rstCopia As Recordset

strpre = InputBox("codVenta a buscar: ", "Buscar Venta")

With datVenArt.Recordset
Set rstCopia = .Clone
rstCopia.Index = "codventa"
rstCopia.Seek "=", strpre
If rstCopia.NoMatch Then
MsgBox "No EXISTE NINGUNA", _
vbOKOnly, "Búsqueda de codigos"
Else
Call busbuscodcli(strpre, rstCopia)
End If
rstCopia.Close
End With
End Sub
Private Function busbuscodcli(strpre As String, rstCopia As Recordset)

rstCopia.Seek "=", strpre
If rstCopia.NoMatch Then
Exit Function
Else
datVenArt.Recordset.Bookmark = rstCopia.Bookmark
Text1.Text = Val(Text1.Text) + Val(txtCampoVenA(3).Text)
rstCopia.Seek "=", strpre
Call busbuscodcli(strpre, rstCopia)
End If
End Function


GRACIAS X TODO !!!!

1 SALUDO !!!!