Errors

Hi just wondering if someone could tell me how i do this.

I want to display a Message Box with an error if when a command button is clicked and a text box has not had any data entered into it.

so for each text box i need a message box which says where teh error is.

Heres the code:

Private Sub cmdCalc_Click()
Dim Cons As Currency
Dim floor As Integer
Dim Colour As Integer
Dim Glass As Integer
Dim Hardware As Currency
Dim hardwood As Integer
Dim area As Integer



txtMaterials.Text = Format(aorder.Materials, "Currency")
txtMaterialsVat.Text = Format(aorder.Installation, "Currency")
txtLabour.Text = Format(aorder.Labour, "Currency")
txtTotalCost.Text = Format(aorder.Total, "Currency")


Cons = txtConsCost.Text
floor = txtFloorCost.Text
Colour = txtColourCost.Text
Glass = txtGlassCost.Text
Hardware = txtHardwareCost.Text
hardwood = txtHardwoodCost.Text
area = txtAreaCost.Text


aorder.Materials = Cons / 100 * floor + Cons / 100 * Colour + Cons / 100 * Glass + Cons / 100 * hardwood + Cons / 100 * area + Hardware + Cons
aorder.Installation = aorder.Materials / 100 * 17.5 + aorder.Materials
aorder.Labour = aorder.Materials / 100 * 55
aorder.Total = aorder.Installation + aorder.Labour


End Sub


I thought it'd be something like:

If Cons = "" Then
MsgBox "Error in Cons"

Elseif area= "" Then
MsgBox "Error in Area"

and so on but i cant get that working.


Thank you for any help



Edit: Also if txtColourCost.Text is left empty i want to calculate everything else and leave that out.


So is it

Elseif isEmpty(txtColourCost.Text ) Then

*the calculation without the txtcolourcost.text*

But that doesnt work either.

You could do something like this

Thats worked

But... now if i dont select data for one of the text boxes when i click Calculate i get an error saying "type missmatch"

and goes to:

Cons = txtConsCost.Text
floor = txtFloorCost.Text
Colour = txtColourCost.Text
Glass = txtGlassCost.Text
Hardware = txtHardwareCost.Text
hardwood = txtHardwoodCost.Text
area = txtAreaCost.Text


Thank you for the last bit though.

hmm.. why dun u try to declare those 2 currency as integer and try see whether do u have that error again? like Cons as Integer

hmm.. why dun u try to declare those currency as integer and try see whether do u have that error again? like Cons as Integer

Its sorted now, If a textbox is left empty it automaticaly enters either N/A or 0.