Imports System
Imports System.Text.RegularExpressions
Public Class Program
Public Shared Sub Main()
Dim pattern As String = "\b[M]\w+"
Dim regx As Regex = New Regex(pattern)
Dim s As String = "Python, Mike, Java, Memory, C, C++, Mcaronis, C#, Mac, PHP, MATLAB"
Dim math As MatchCollection = regx.Matches(s)
For count As Integer = 0 To math.Count - 1
Console.WriteLine(math(count).Value)
Next
End Sub
End Class
' run:
'
' Mike
' Memory
' Mcaronis
' Mac
' MATLAB
'