ummm ha de ser problema con tu cadena de texto
porque no la pones mas clara
algo así:
Cita: mensaje1 = ""
mensaje1 = mensaje1 & "El auto de patente "&patente&" "
mensaje1 = mensaje1 & "pertenece al usuario con los siguientes datos: " & VbCrLf
mensaje1 = mensaje1 & "Nombre : " & TuVariableNombre & VbCrLf
mensaje1 = mensaje1 & "Apellido : " & TuVariableApellido & VbCrLf
mensaje1 = mensaje1 & "Dirección : " & TuVariableDireccion & VbCrLf
y luego envías mensaje1
suerte