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)