Dim texto, remplazo As String
Dim n, start As Integer
n = 1
start = 1
texto = Chr(32)
remplazo = "%0A"
While n <> 0 ' Mientras en el texto siga existiendo la variable texto:
n = InStr(start, Text1.Text, texto, vbTextCompare) ' Compara el text1.text con la variable texto. El número que devuelve es la posición donde se ha encontrado la cadena de caracteres. Como la posición 0 no existe 0 es que no se ha encontrado.
start = n + 1 'empezará siempre desde la posición de la ultima cadena de caracter encontrada + 1.
If n <> 0 Then ' si se ha encontrado
Text1.SelStart = n - 1 ' se seleccionará la cadena de caracter
Text1.SelLength = Len(texto)
Text1.SelText = remplazo ' se reemplaza el texto seleccionado por el deseado: remplazo.
End If
Wend

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
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 Sub Command1_Click()
    Dim i As Long, nlineas As Long
    Dim inicio As Long, longitud As Long
    Dim frase As String
    
    ' Constantes SendMessage:
    Const EM_GETLINECOUNT = &HBA
    Const EM_LINELENGTH = &HC1
    Const EM_LINEINDEX = &HBB
    
    ' Calcula el número de líneas del textbox
    nlineas = SendMessage(Text1.hwnd, EM_GETLINECOUNT, 0, 0&)

    For i = 0 To nlineas - 1
        ' Calcula el primer carácter de la linea actual:
        inicio = SendMessage(Text1.hwnd, EM_LINEINDEX, i, 0&) + 1
        ' Calcula la longitud de la línea actual
        longitud = SendMessage(Text1.hwnd, EM_LINELENGTH, inicio, 0&)
        frase = frase + Mid$(Text1.Text, inicio, longitud) + "%0A"
    Next i
    
    Call ShellExecute(Me.hwnd, "Open", "mailto:xxx@xx.com?bcc=&subject=Probando Mailto&body=" + frase, "", "", vbNormalFocus)
End Sub

Private Sub Form_Load()
Text1.Text = "Quijote 2006:" + vbCrLf + "En un lugar de" + vbCrLf + "la mancha, de cuyo nombre no quiero acordarme..."
End Sub