Dim sample As String = TextBox1.Text Dim letters = sample.Where(Function(c) Char.IsLetter(c)).ToArray() Dim word = New String(letters) Label3.Text = word
Dim letters = "MSE001243".Where(Function(c) Char.IsLetter(c)).ToArray() Dim word = New String(letters) ' word is now MSE
"& textbox1.text &".Where(Function(c) Char.IsLetter(c)).ToArray()
createSql = "CREATE TABLE IF NOT EXISTS Mate(CODE VARCHAR(25), PCID VARCHAR(25), Assigned_To TEXT, Deployed TEXT, PRIMARY KEY (CODE))"
Dim cleanString As String = Regex.Replace(TextBox2.Text, "[^A-Za-z0-9\-/]", " ")