例: Mid function

Dim subString As String
subString$ = Mid$("ABCDEF", 2, 3)
Print subString$        ' Output: BCD