betmode is either 0 or 1
1= currency
0= credits
Private Function CreditMode0String(ByVal credit As String, ByVal betMode As Integer)
credit = IIf(InStr(credit, "$") > 0, CCur(Mid(credit, 2)), CCur(credit)) highlighted line
'credit = CCur(Mid(credit, 2))
CreditMode0String = credit / GetPriceByBetMode(betMode)
End Function
why am i getting this error ?