Private Sub poolakey_consumeSucceed
CallSubDelayed(Me, "cafebazaarsucceed")
End Sub
Sub cafebazaarsucceed
If purchaseInfo_productId.Trim.Length>0 Then
Product_ProductId=purchaseInfo_productId
Private lst As List
lst.Initialize
lst.Add(func.set_string(Product_ProductId)) << The error occurs at this line.
.
.
.
.
End Sub