Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
        Dim t As String
        t = TextBox1.Text
        If t Like "##" Or t Like "##.##" Or t Like "####" Then t = t & "."
        TextBox1.Text = t
        End If  ' еще тут ругается что должен предшествовать if хотя он есть
    End Sub

  Dim t As String
        t = TextBox1.Text
        If t Like "##" Or t Like "##.##" Or t Like "####" Then
            t = t & "."
            TextBox1.Text = t
            TextBox1.SelectionStart = TextBox1.Text.Length
            TextBox1.ScrollToCaret()

        End If