基本文法

■定数の宣言
Const valueConst　 As Long = 10

■変数の宣言

Dim myValue       As String

■Subの宣言

Sub testSub(ByVal text As String, ByVal ws As Worksheet)

...

End Sub

■Subの呼出

call testSub(text, ws)

■Functionの宣言

Function getSheets(ByVal value As String) As String

getSheets =value

End Function

■Functionの呼出

getSheets("Hello World!")

■分岐①

 If a= 1 Then

...
ElseIf  a= 2 Then

...
Else
 ...                    
End If

■分岐②

Select Case code
    Case "1"
         ...
    Case "2"
           ...
    Case "3"
           ...

End Select
 ■   ループ

Do Until Trim(ws_main.Cells(rowNum, 1)) = ""

　　For i = 1 To ws_main.Cells(rowNum, 2)

     ...                     

　　Next i

 Loop
■