Try:
Dim source As String = "CHimaM"
Dim extract As String = ""
Dim start As Integer = source.IndexOf("C"C) + 1
Dim [end] As Integer = source.IndexOf("M"C)
If start >= 0 AndAlso [end] > start Then
extract = source.Substring(start, [end] - start)
End If