Private Sub Form_Load()
' va a funcionar si es un txt, no otra extensión
Dim fs, ws, desktop_, myFile, fo, b 'las vars que se usan
' si se supone que esta en el escritorio lo buscamos
Set ws = CreateObject("Wscript.Shell")
Set fs = CreateObject("Scripting.FilesystemObject")
desktop_ = ws.specialfolders("Desktop")
' creamos una var con el nombre completo del file
myFile = fs.getfile(desktop_ & "\jaja.txt")
' lo abrimos
Set fo = fs.openTextFile(myFile)
' lo leemos
b = fo.readall
' ponemos el contenido en el label
Label1.Caption = b
' Saludetes...
End Sub

@echo off
cls
set /p nombre=[escribe tu nombre:]
echo hola %nombre%
pause

winword c:\cosas\notas.doc

myString = "hola como estas?"
msgbox(left(myString,1))

Private Sub Form_Load()
Show
Dim a As String
a = "abcdefghijklmnñopqrstuvwxyz"
For x = 1 To Len(a)
Print Left$(a, x)
Next
End Sub

Private Sub command1_click()
text2.text= lcase(text1.text & "s")
end sub

f(!$visitormail == "" && (!strstr($visitormail,"@") || !strstr($visitormail,".")))
{
echo "<h2>Has ingresado un mail incorrecto, intantalo de nuevo</h2>\n";
$badinput = "<h2>El mensaje no ha sido enviado</h2>\n";
}
if(empty($visitor) || empty($visitormail) || empty($notes ) || empty($visitorcity)) {
echo "<h2>No has llenado todos los campos, el email no ha sido enviado con exito</h2>\n";
}
echo $badinput;

<form name="miFrm" action="form.php" method="post">
input type="text" name="nombre">
<input type="submit">
</form>

 <?php
/* form.php */
$nombre=$_POST['nombre'];
if($nombre=== "") {
   // bla bla bla
}
else {
// bla bla bla
}
?>

if(!$visitormail == "" && (!strstr($visitormail,"@") || !strstr($visitormail,".")))
{
echo "<h2>Has ingresado un mail incorrecto, intantalo de nuevo</h2>\n"; 

Private Sub cogeCifrado(str As String)
If Not getStr(str) Or Len(str) - 37 < 0 Then
    MsgBox ("Entrada no valida, debe incluir la linea completa, incluido PWD=")
Else
    '' Blah blah blah
    MsgBox "bla blah blah"
End If
End Sub
Private Function getStr(sCadena As String) As Boolean
Dim strLen As Integer
strLen = Len(sCadena)
For x = 1 To strLen
    m = Mid(sCadena, x, 4)
    If UCase$(m) = "PWD=" Then
        lok = True
        Exit For
    Else
        lok = False
    End If
Next
getStr = lok
End Function

Private Sub Command1_Click()
cogeCifrado (Text1.Text)
End Sub