Dim strMeineSaetze() As String
    Dim strMeinText As String
 
        strMeinText = "Das Haus ist grün. Das Haus steht auf einem Hügel."
        strMeineSaetze = Split(strMeinText, ".")
 
        MsgBox "Der letzte Satz lautet:" & vbCrLf & strMeineSaetze(UBound( _
          strMeineSaetze) - 1) & "."

Mit freundlichen Gr??en,
Andy G.