Public Sub sellItem(PLUName As String,VATRate As String,UnitPrice As String,quantity As String,DiscProc As String,DiscVal As String) As String
If PLUName.Contains(" ") Then
PLUName= Regex.Replace(" ",PLUName,"<")
End If
Return $"SellPLUWithSpecifiedVat(NamePLU=${PLUName},OptionVATClass=${VATRate}$,Price=${UnitPrice},quantity=${quantity},DiscAddP=${DiscProc},DiscAddV=${DiscVal})"$
End Sub