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

        Dim m As Integer
        Dim l As Integer
        Dim k As Integer
        Dim x As Integer
 
        x = CInt(Val(TextBox1.Text))
 
        If x < 100 Then
            MsgBox("Число не может быть меньше, чем 100", , "Ошибка!")
        Else
            If x > 999 Then
                MsgBox("Число не может быть больше, чем 999", , "Ошибка!")
            Else
                l = x \ 100
                x = x Mod 100
                m = x \ 10
                k = x Mod 10
                x = l * 10 + m * 100 + k
                TextBox3.Text = CStr(x)
            End If
        End If