'cIntConverter.vbs
'The following Script converts values as an example
'Scripting by Fusion 13
'webmaster@Fusion13.com Please send attachments and personal programs and or scripts
'computing.Fusion13.com
'7-22-01
'Copyright Fusion 13

Option Explicit
dim stringa
dim stringb
dim inta
dim intb
dim xbox 		
			'Line 11

stringa = inputbox("Please enter a number 1 - 10.","First Number")
stringb = inputbox("Please enter a number 1 - 10.","Second Number")

xbox = msgbox("The title is the concatenation of the numbers " + stringa + " and " + stringb + " due to improper variable types.", vbokonly, (stringa + stringb))

'************************
inta = CInt(stringa) 'set to int value of string a
intb = CInt(stringb) 'set to int value of string b
'************************

xbox = msgbox("The title of this box, however, is the addition of the numbers " + stringa  + " and " + stringb + " due to proper variable conversion.", vbokonly, (intA + intB))