Dim input = TextBox1.Text.Replace("."c, "")

... at its simplest.