Solved:Read words from text File

[.paul.]

you could use regex:

Dim testStr As String = "SHG9001233 SHG9001234 SHG9001235"
Dim rx As New Regex("[A-Z]{3}\d+")
 
For Each m As Match In rx.Matches(testStr)
    MsgBox(m.Value)
Next

don't forget to import regex:

Imports System.Text.RegularExpressions