Visual Basic - Ayuda VBScript

Hola

No soy programador y necesito ayuda para crear un pequeño VBSCRIPT (pido disculpas si este no es el foro apropiado)

Lo que quiero hacer es lo siguiente, introducir mediante un InputBOX, un texto y que me lo transforme en un texto editable o lo copie al clipboard de la siguiente manera:

ejemplo:

en el input box indicamos el texto "juan"
InputBox("texto de?") :) jejeje

y me gustaría que se añadiera siempre lo siguiente

los texos de/j/ju/juan

es decir simpre la variable los textos de, lugo la primera letra de la variable introducida en el input box, luego las dos primeras letras de la variable y luego la variable completa

la formula seria:

los textos de /(primera letra variable)/(dos primeras letras variable)/variable

Alguien me puede ayudar por favor ....?????

Gracias

Hace algo asi

Dim Texto As String

Texto = InputBox("Ingrese su Texto")
Texto = Mid(Texto, 1, 1) & "/" & Mid(Texto, 1, 2) & "/" & Texto
MsgBox "Los textos de ... " & Texto

Christian, muchisimas gracias!!! es justo lo que buscaba.... y necesitaba :)))))))

ahora solo que queda una cosa, como podría copiar MsgBox en el clipboard ???

o si no es posible, que abra un notepad con texto, para poder hacer copy/paste

gracias

Dim Texto As String

Texto = InputBox("Ingrese su Texto")
Texto = Mid(Texto, 1, 1) & "/" & Mid(Texto, 1, 2) & "/" & Texto
Select Case MsgBox("Los textos de ... " & Texto & ". Desea guardarlo?", vbQuestion + vbYesNoCancel)
Case Is = vbYes
Open App.Path & "\salida.txt" For Output As #1
Print #1, Texto
Close #1
Case Is = vbNo
Clipboard.Clear
Clipboard.SetText (Texto)
Case Is = vbCancel
MsgBox "Los textos de ... " & Texto
End Select

bueno ahi esta con guardado incluido y con copiado al clipboard que deberia andar sin problemas

hola Juan
con la cuarta linea de este codigo puedes copiar al clipboard

texto = InputBox("Ingrese su Texto")
texto = Mid(texto, 1, 1) & "/" & Mid(texto, 1, 2) & "/" & texto
MsgBox "Los textos de ... " & texto
Clipboard.SetText (texto)

hola,
he probado de mil maneras el clipboard.settext pero no funciona , tambien he puesto antes el clipboard.clear

el error que da es:

Object requiered: 'Clipboard'
800A01A8

:´(

Hola

Os doy la solución, a mi me ha funcionado (lo he sacado otro foro)

:)

sText = "some text to clipboard"
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate "about:blank"
Do Until objIE.ReadyState=4: WScript.Sleep 1: Loop
objIE.Document.ParentWindow.ClipboardData.SetData "Text", sText
objIE.Quit

Un saludo