'one more simple way
Public Enum EVbRunMode
    RunMode_Compiled = True
    RunMode_FromIDE = False
End Enum
Public Function AppRunMode() As EVbRunMode
    On Error Resume Next
    Debug.Print 1 / 0
    AppRunMode = Err.Number = 0
End Function

Public Declare Sub Delay Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

'to use it where you want to wait... delay X 
'where X is the amount of milliseconds to wait for
'only one thing, while the program is waiting... nothing will be executed until the time selected to delay
delay 50

'I don't know if you are asking something like this... but...
'In a form put a commandbutton, paste the code and click it
'..............................
Private sub command1_click()
dim TheStart as integer: TheStart=2
dim TheLength as integer: TheLength=3
dim MyString as string: MyString="A long text"
msgbox mid$(MyString,TheStart,TheEnd)
msgbox left$(MyString,TheLength)
msgbox right$(MyString,TheLength)