The With statement allows for specifying members of an object or user-defined type in a more efficient and easier to read format. Each With statement requires an End With statement to close the block. An example of the with statement is shown below.

Dim myCollection As Collection
Set my Collection = New Collection
 
' Standard assignment
myCollection.Add = 5
myCollection.Add = 10
myCollection.Add = 15
 
'Assignment using With statement
With myCollection
    .Add = 5
    .Add = 10
    .Add = 15
End With
 
With CadInputQueue
    .SendKeyin "lv=default"
    .SendKeyin "co="
    .SendKeyin "wt=1"
    .SendCommand "place smartline"
End With

With statements can also be nested for even greater efficiency

' MicroStation text element example
With myText
    .Text = "This is a test"
     
    ' The TextStyle object is a member of the
    ' text element object
    With .TextStyle
        .Height = 3
        .Width = 3
    End With
End With