Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim product As String Dim sales As Integer product = InputBox("Please Enter Your Products Name: ") sales = InputBox("Please Enter Your Product Sales: ") End Sub
Its says conversion from String to Integer not valid for this line:
sales = InputBox("Please Enter Your Product Sales: ")
Also, when the first messagebox comes, how can I make it when you select "cancel", the programme then exits the sub routine and a second messagebox dosent come up?
This post has been edited by mbrother64: 19 March 2010 - 02:23 AM