Dividir Texto Em 2 Colunas

[rcnery]

Pessoal,

Por favor que solber me ajude!

Estou limitando um texto para ser colocado em 2 colunas a primeira parte está certa a segunda q eu não sei como fazer o texto partir de onde parou.

Segue abaixo o código q estou usando na primeira parte

Agradeço a ajuda de todos.

Ricardo Nery

<%

procuraString = quem_desc ' String onde procurar

ProcuraChar = " " ' Procurar por "P"

MinhaPos = Instr(540, ProcuraString, ProcuraChar, 1)

' Uma comparação textual a começar em 4 devolve 6

'e isso

MeuString = quem_desc

IF MinhaPos <> 0 Then

Resultado = Left(MeuString, MinhaPos) ' Resultado tem "VBS".

ELSE

Resultado = quem_desc

End If

response.write replace(Resultado, vbcrlf,"<br>")

%>

[rcnery]

Consegui resolver

Obrigado a todos pela ajuda

código final

<%

inicio = Cint (MinhaPos+1)

s=Mid(MeuString,inicio)

Response.Write s

%>