text: LabelBox is lblInput\ntextbox is txtInput\n\nDim intInput as Integer\nDim Total as Integer\nDim Answer as Integer = 1\n\nintInput = txtInput.Text\n\nFor Total = 1 to intInput\nAnswer *= Total\nNext\n\nlblInput.text = Answer