in VB i have this code to deducte resources for a place.

Do Until i <= 300

metal1 = ship2_no.Text * 300
metalt = CLng(Label1.Caption - metal1)

i = metalt < 300
MsgBox ("Not Enough")
i = i + 3
Loop


wot ive tried to do is this if i have enough for 6 items but i ask for 10 how to i make it stop on 6 and not do into - figures?