Imports System.Text.RegularExpressions
Module Module1
Sub Main()
Dim s As String = "'VB.NET' programming 'C' 'C++' language 'Java' 'Python'"
Dim quote As MatchCollection = Regex.Matches(s, "'(.*?)'")
Dim arr(quote.Count - 1) As String
Dim i As Integer
For i = 0 To arr.Length - 1
arr(i) = quote(i).Groups(1).Value
Next
For Each word In arr
Console.WriteLine(word)
Next
End Sub
End Module
' run:
'
' VB.NET
' C
' C++
' Java
' Python