Найти число, полученное при перестановке второй и третьей цифры заданного

'ПРОВЕРЯЕТ проблему преобразования данных в выражениях и операторах  присваивания.
Option Strict On
'ПРОВЕРЯЕТ  ЗАДАНЫ  ЛИ ЯВНО  ВСЕ  ТИПЫ  ДАННЫХ
Option Explicit On
'ПОДКЛЮЧЕНИЕ  БИБЛИОТЕКИ  ВСТРОЕННЫХ  МАТЕМ.  ФУНКЦИЙ
Imports System.Math
 
Public Class Form1
 
    Private Sub ButClos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButClos.Click
 
        'ЗАВЕРШЕНИЕ  РАБОТЫ  ПРИЛОЖЕНИЯ
        Application.Exit()
 
    End Sub
 
    Private Sub ButReturn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButReturn.Click
 
        ' ОЧИСТКА   ЭЛЕМЕНТОВ УПРАВЛЕНИЯ TextBox
        TBa.Clear()
        TBx.Clear()
        TBy.Clear()
        TBvb.Clear()
        TBvc.Clear()
 
    End Sub
 
    Private Sub ButCalc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButCalc.Click
 
        'ЗАДАНИЕ   ТИПОВ   ПЕРЕМЕННЫХ   ПО УСЛОВИЮ   ЗАДАЧИ
        Dim a As Double
        Dim y As Double
        Dim x As Double
        
        ' ПРИСВОЕНИЕ ПЕРЕМЕННЫМ  ПРЕОБРАЗОВАННЫХ  ЗНАЧЕНИЙ,   ЗАДАННЫХ В   TBx   И    TBy
 
        ' Т.К. ЭЛЕМЕНТ  УПРАВЛНИЯ   TEXTBOX  ПРЕДНАЗНАЧЕН  ДЛЯ ВВОДА И ВЫВОДА  ЗНАЧЕНИЙ,  ТОЛЬКО В СИМВОЛЬНОМ  ВИДЕ
        x = CDbl(Val(TBx.Text))
        y = CDbl(Val(TBy.Text))
        
        '  ВЫЧИСЛЕНИЕ  ЗНАЧЕНИЙ ПЕРЕМЕННЫХ
        a = CDbl((14 * Math.Sin(x) + y ^ 2) / (0.92 * Math.Cos(x) ^ 2))
        
        ' Вывод значений   в  элементах  управления ---- TBa
        TBa.Text = Str(a)
        
    End Sub
 
    Private Sub ButValue_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButValue.Click
 
        'Найти число, полученное при перестановке второй и третьей цифр заданного значения
 
        'ЗАДАНИЕ   ТИПОВ   ПЕРЕМЕННЫХ   ПО УСЛОВИЮ   ЗАДАЧИ
        Dim b As Integer
        Dim c As Integer
        Dim d As Integer
        Dim f As Integer
            ' ПРИСВОЕНИЕ ПЕРЕМЕННОЙ,   ЗАДАННЫХ В   TBvb   И    TBvc
        
                ' Т.К. ЭЛЕМЕНТ  УПРАВЛНИЯ   TEXTBOX  ПРЕДНАЗНАЧЕН  ДЛЯ ВВОДА И ВЫВОДА  ЗНАЧЕНИЙ,  ТОЛЬКО В СИМВОЛЬНОМ  ВИДЕ
                b = CInt(Val(TBvb.Text))
 
                '  ВЫЧИСЛЕНИЕ  ЗНАЧЕНИЙ ПЕРЕМЕННЫХ
                d = CInt((Fix(b / 100) * 100))   ' сотни
                f = CInt(b - d)                  ' десятки
                c = CInt(f - (Fix(f / 10) * 10)) ' единицы
 
                ' Вывод значений   в  элементах  управления ---- TBa
                TBvc.Text = Str(d + (c * 10) + (Fix(f / 10)))
         
    End Sub
End Class

If b < 100 Or b > 999 Then
            TBvb.Clear()
            TBvc.Clear()
            MessageBox.Show("Вы ввели неверное число. Необходимо ввести трёхзначное число!", caption:="Замечание")
 
        End If