[RESOLVED] help

[Static]

something like this?

if too many then ask the user if they want to just use whats there...
if No.. exits sub
if yes.. then.. do your code

If ship2_no.Text Then
        metal1 = ship2_no.Text * 300
        metalt = CLng(Label1.Caption - metal1)
        
        If metal1 > metalt Then
            If MsgBox("Not enough to build that many! Would you like to use whats available? (" & _
            Label1.Caption & ")", vbYesNo + vbQuestion, "Not Enough") = vbNo Then Exit Sub
            metal1 = metalt
            'do othe code..
            
        End If
    End If

[Keith_VB6]

It looks like Static is heading you in the right direction. How about this slight tweak ?

If ship2_no.Text Then
    metal1 = ship2_no.Text * 300
    metalt = CLng(Label1.Caption - metal1)
    
    If metal1 > metalt Then
        If MsgBox("Not enough to build that many! Would you like to use whats available? (" & _
        Label1.Caption & ")", vbYesNo + vbQuestion, "Not Enough") = vbNo Then Exit Sub
        metal1 = metalt
        
        'do othe code... Build the maximum amount
    Else
        'there's enough, so build it.
    End If
End If