Dim badChars As String = "abcdefg"
        If txtNumber.Text.Count(Function(c) badChars.Contains(c)) > 0 Then
            MsgBox("TextBox contains bad characters")
            cmdInsert.Dispose()
        End If