Обработка вычислений в текст боксе

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Тест"
    End Sub
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Dim a, b As Single
        TextBox1.Text = Replace(TextBox1.Text, ",", ".")
        TextBox2.Text = Replace(TextBox2.Text, ".", ",")
        a = Val(TextBox1.Text)
        b = a * 2
        TextBox2.Text = Val(b)
        'Почему-то"Риплэйс" работает только с кнопкой на основной клавиатуре,
        'а при наборе "точки" на нумпаде последующие цифры печатаются с начала строки.
    End Sub
    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
        Dim i, f As Single
        TextBox2.Text = Replace(TextBox2.Text, ",", ".") '
        TextBox1.Text = Replace(TextBox1.Text, ".", ",") '
        i = Val(TextBox2.Text)
        f = Val(TextBox1.Text)
        f = i / 2
        TextBox1.Text = Val(f)
        'С дезактивированным кодом "Private Sub TextBox2"
        'первая процедура работает,
        'а с активированным вот это:"убедитесь в отсутствии
         'бесконечного цикла или рекурсии"
        'и наоборот.
    End Sub
End Class

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.
    Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Me.Text = "Тест"
        Me.Text = Now.ToLongTimeString
        TextBox1.Text = Replace(TextBox1.Text, ",", ".")
        TextBox2.Text = Replace(TextBox2.Text, ",", ".")
    End Sub
    Private Sub TextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp
        System.Windows.Forms.InputLanguage.CurrentInputLanguage = InputLanguage.
     FromCulture(System.Globalization.CultureInfo.GetCultureInfo(1033)) 'для RU (1049)
        Dim a, b As Single
        a = Val(TextBox1.Text)
        b = a * 2
        TextBox2.Text = Math.Round(b, 3).ToString
        If TextBox1.Text = "" Then TextBox2.Text = ""
    End Sub
    Private Sub TextBox2_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox2.KeyUp
        System.Windows.Forms.InputLanguage.CurrentInputLanguage = InputLanguage.
     FromCulture(System.Globalization.CultureInfo.GetCultureInfo(1033)) 'для RU (1049)
        Dim a, b As Single
        b = Val(TextBox2.Text)
        a = b / 2
        TextBox1.Text = Math.Round(a, 3).ToString
        If TextBox2.Text = "" Then TextBox1.Text = ""
    End Sub
End Class