Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)

If Shift = 1 And KeyCode = 13 Then ' si es shift y enter

Text1.Text = Text1.Text & vbCrLf
Text1.SelStart = Len(Text1.Text)

End If

End Sub

Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Private Sub Timer1_Timer()
   If GetKeyState(13) < 0 And GetKeyState(16) < 0 Then
      
      Text1.Text = Text1.Text & vbCrLf
      Text1.SelStart = Len(Text1.Text)
      
   End If
End Sub

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Const WM_CLOSE = &H10
Const ClaseDeIE = "Internet Explorer_Server"
Const ClaseDeFF = "MozillaWindowClass"

Private Sub Form_Load()
  Dim WinWnd As Long
    'Como solo queremos  la del IExolorer...
    'se la ponemos directamente
    WinWnd = FindWindow(ClaseDeIE, vbNullString) 'vbnullstring el segundo valor para que valga para cualquier ventana del IE
    If WinWnd = 0 Then Exit Sub  ' si no esta salimos sin hacer nada
    ' el show de window lo quite , me imagino que no quieres mostrarla si la encuentra
   ' el nombre de la clase tambien lo quito , ya lo tenemos
    'Post a message to the window to close itself
    PostMessage WinWnd, WM_CLOSE, 0&, 0&  ' cerramos el IE y hasta otra

End Sub

Dim cadena as String
Dim Lcadena as String

cadena= "Soy El MaRo!"

Lcadena=LCase(cadena) 'la variable cadena pasaria a ser "soy el maro!"