If IsNumeric(txtFrom.Text) Then MsgBox("Make sure you type a name and not a number for your currency", MsgBoxStyle.Critical, txtFrom.Text = "" txtFrom.Focus() Exit Sub End If 'Check that it has an input 'If the length of the text in is equal to zero then display a message “txtTo” box stating sure you type the name of your currency” ‘error “Make 'Reset text in to nothing or “txtTo” ““ 'Put cursor in the box “txtTo” If txtTo.Text.Length = 0 Then MsgBox("Make sure you type the name of your currency ", MsgBoxStyle.Critical, "ERROR!") = "" txtTo.Focus() Exit Sub End If 'Check it’s not the same 'If the is equal to then display a message box stating error “txtFrom” “txtTo” have the same currency” “You ‘cannot text in to nothing or “txtFrom” ““ 'Reset text in to nothing or “txtTo” ““ 'Put cursor in the box “txtFrom”
If IsNumeric(txtFrom.Text) Then MsgBox("Make sure you type a name and not a number for your currency", MsgBoxStyle.Critical, txtFrom.Text = "" txtFrom.Focus() Exit Sub End If 'Check that it has an input 'If the length of the text in “txtTo” is equal to zero then display a message box stating ‘error “Make sure you type the name of your currency” 'Reset text in “txtTo” to nothing or ““ 'Put cursor in the “txtTo” box If txtTo.Text.Length = 0 Then MsgBox("Make sure you type the name of your currency ", MsgBoxStyle.Critical, "ERROR!") = "" txtTo.Focus() Exit Sub End If 'Check it’s not the same 'If the “txtFrom” is equal to “txtTo” then display a message box stating error “You ‘cannot have the same currency” text in “txtFrom” to nothing or ““ 'Reset text in “txtTo” to nothing or ““ 'Put cursor in the “txtFrom” box
design_the_program_full.docx