Option Explicit
Private Declare Function SendMessage Lib "user32" Alias _
  "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As _
  Long, ByVal wParam As Long, lParam As Any) As Long
 
Private Const EM_LINEFROMCHAR = &HC9
Private Const EM_LINEINDEX = &HBB

Private Sub Text1_KeyPress(KeyAscii As Integer)
  Dim nPos As Integer
 
  With Text1
    <font color=green>' aktuelle Spalte ermitteln</font>
    nPos = .SelStart - _
      SendMessage(.hwnd, EM_LINEINDEX, _
      SendMessage(.hwnd, EM_LINEFROMCHAR, -1, ByVal 0&), 0&) + 1
 
    If KeyAscii = 13 And nPos > 0 Then
      KeyAscii = 0
      .SelText = vbCrLf + Space$(nPos - 1)
    End If
  End With
End Sub