Visual Basic - visual basic...cadenas

Como puedo comparar dos cadenas en visual basic 6.0
es que intento hacer esto

fmrProductos.DataProductos.Refresh
Dim prod As Variant, prod2 As Variant, existencias As Variant

prod = Me.ComboProdVentas.Text ' tomo el nombre del producto que elegi en un combo box

Do Until fmrProductos.DataProductos.Recordset.EOF 'recorro la tabla producto desde este frm
prod2 = fmrProductos.DataProductos.Recordset("NombreProducto")

TestComp = StrComp(prod, prod2)
If TestComp = 0 Then
existencias = fmrProductos.DataProductos.Recordset("ExistenciasProducto")
fmrProductos.DataProductos.Recordset("ExistenciasProducto").Value = Val(existencias) - Val(Me.TextCantidad.Text)
MsgBox "correcto"
fmrProductos.DataProductos.UpdateRecord
Exit Do
End If
MsgBox "incorrecto"
fmrProductos.DataProductos.Recordset.MoveNext
Loop

Creo que complicas mucho el código:

Do Until fmrProductos.DataProductos.Recordset.EOF
IF fmrProductos.DataProductos.Recordset("NombreProducto") = ComboProdVentas.Text Then
existencias = fmrProductos.DataProductos.Recordset("ExistenciasProducto")
fmrProductos.DataProductos.Recordset("ExistenciasProducto").Value = Val(existencias) - Val(Me.TextCantidad.Text)
fmrProductos.DataProductos.UpdateRecord
Exit Sub
End If
fmrProductos.DataProductos.Recordset.MoveNext
Loop
MsgBox "Producto no existe"

Y eliminas las variables prod y prod2