Pulling sentences from text string

Is there a more compact way to get the first 3 sentences (if there are 3 sentences - some have less) from a paragraph of text?

                                                               strMessage = RemoveHTML(rsData("Message"))
                        nPos1 = InStr(strMessage, ".")
                        nPos2 = InStr(nPos1 + 1, strMessage, ".")
                        nPos3 = InStr(nPos2 + 1, strMessage, ".")

                        if nPos1 > 0 then
                             strMessage1 = Mid(strMessage, 1, nPos1)
                        end if
                        if nPos2 > nPos1 + 1 then
                              strMessage1 = Mid(strMessage, nPos1 + 1, nPos2 - nPos1)
                        end if
                        if nPos3 > nPos2 + 1 then
                              strMessage1 = Mid(strMessage, nPos2 + 1, nPos3 - nPos2)
                        end if
                        if strMessage1 <> "" then
                              strMessage = strMessage1
                        end if