Bueno espero te sirva... lo desglose para que entiendas...Colocalo en el evento que desees
 Dim cad As String
 cad = "Carlos Esta .Con Camisa. Azul"
 Dim pos1 As Integer, pos2 As Integer, resto As Integer
 pos1 = InStr(cad, ".")
 pos2 = InStrRev(cad, ".")
 resto = pos2 - pos1
 label1.caption = Mid(cad, pos1 + 1, resto - 1)