Dim num As Integer
Integer.TryParse(TextBox1.Text, num)
TextBox2.Text = Convert.ToString(num, 16).ToUpper
Dim Number As Integer
HexTextBox.Text = If(Integer.TryParse(NumberTextBox.Text.Trim, Number) = True, Number.ToString("x"), "Cannot be converted to Hex")