VB 2019: Conversione da textbox in formato valuta a numerico

[patel]

        Dim num As Single = Convert.ToSingle(TextBox1.Text)
        TextBox2.Text = num.ToString("C")
        num = CSng(TextBox2.Text)
        TextBox3.Text = num.ToString