DefTypeステートメントを用いると、ある程度変数の宣言を簡略化できます。

例えば、今までInteger型の変数に"intABC"、のようにデータ型をあらわす
ような変数命名規則を用いていたような場合にはサンプルのような形にする
と変数の宣言を簡略化できます。

'=============================================
'モジュールレベル変数

DefInt I    'Integer
DefLng L    'Long
DefBool B   'Boolean
DefStr S    'String
DefObj W    'Object総称型
DefVar V    'Variant

'※DefInt A-E　のようにするとAからEの範囲で指定できます。

'※通常どおりの宣言方法でAs　以下でデータ型を指定すると
'　DefTypeステートメントの指定にかかわらず指定のデータ型
'　になります。
'※DefTypeステートメントはモジュールレベルでのみ有効
'=============================================

Private Sub CommandButton1_Click()

    Dim intTemp, blnTemp, strTemp, WB, WS, var1, var2
    Dim MSG As String

    intTemp = 100
    blnTemp = True
    strTemp = "Excel!"
    Set WB = ActiveWorkbook
    Set WS = ActiveSheet
    var1 = 100
    var2 = "OFFICE"

    MSG = intTemp & " : " & TypeName(intTemp) & vbCrLf
    MSG = MSG & blnTemp & " : " & TypeName(blnTemp) & vbCrLf
    MSG = MSG & strTemp & " : " & TypeName(strTemp) & vbCrLf
    MSG = MSG & WB.Name & " : " & TypeName(WB) & vbCrLf
    MSG = MSG & WS.Name & " : " & TypeName(WS) & vbCrLf
    MSG = MSG & var1 & " : " & TypeName(var1) & vbCrLf
    MSG = MSG & var2 & " : " & TypeName(var2) & vbCrLf

    MsgBox MSG

End Sub

※サンプルの実行結果は順に・・・

Integer　Boolean　String　Workbook　Worksheet　Integer　String

'=============================================
DefTypeステートメントの一覧
'=============================================

DefBool           ブール型 (Boolean) 
DefByte           バイト型 (Byte) 
DefInt            整数型 (Integer) 
DefLng            長整数型 (Long) 
DefCur            通貨型 (Currency) 
DefSng            単精度浮動小数点数型 (Single) 
DefDbl            倍精度浮動小数点数型 (Double) 
DefDate           日付型 (Date) 
DefStr            文字列型 (String) 
DefObj            オブジェクト型 (Object) 
DefVar            バリアント型 (Variant)