vbs_template.vbs

' ---------------------------------------------------
' description: 
' auther: name
' version: 1.0
' since: yyyy/mm/dd
' update: yyyy/mm/dd
' ---------------------------------------------------

Option Explicit

'variable declaration
Dim x

main()

'Sub Procedure
Sub main()
  Exit Sub
End Sub

'Function Procedure
Function Func()
  'Function
End Function

'conditional expression
'IF
If X=1 Then
    Msgbox "test"
ElseIf x=2 Then
    Msgbox "test"
Else
    Msgbox "test"
End If

'Do1
Do While x=1
    Msgbox "test"
    Exit Do
Loop

'Do2
Do
    Msgbox "test"
    Exit Do
Loop Until x=1

'For1
For i = 0 To 5 Step 1
    Msgbox "test"
    Exit For
Next

'For2
For Each item In items
    Msgbox "test"
Next