" " #if #else #end ' rem < <= >= > = <> . + - * / \ ^ & : if then else elseif select case for to step next each in do while until loop wend exit end function sub class property get let set byval byref const dim redim preserve as set with new public default private rem call execute eval on error goto resume option explicit erase randomize is mod and or not xor imp false true empty nothing null vbblack vbred vbgreen vbyellow vbblue vbmagenta vbcyan vbwhite vbGeneralDate vbLongDate vbShortDate vbLongTime vbShortTime vbObjectError Err vbOKOnly vbOKCancel vbAbortRetryIgnore vbYesNoCancel vbYesNo vbRetryCancel vbCritical vbQuestion vbExclamation vbInformation vbDefaultButton1 vbDefaultButton2 vbDefaultButton3 vbDefaultButton4 vbApplicationModal vbSystemModal vbOK vbCancel vbAbort vbRetry vbIgnore vbYes vbNo vbUseDefault vbTrue vbFalse vbcr vbcrlf vbformfeed vblf vbnewline vbnullchar vbnullstring vbtab vbverticaltab vbempty vbnull vbinteger vblong vbsingle vbdouble vbcurrency vbdate vbstring vbobject vberror vbboolean vbvariant vbdataobject vbdecimal vbbyte vbarray array lbound ubound cbool cbyte ccur cdate cdbl cint clng csng cstr hex oct date time dateadd datediff datepart dateserial datevalue day month monthname weekday weekdayname year hour minute second now timeserial timevalue formatcurrency formatdatetime formatnumber formatpercent inputbox loadpicture msgbox atn cos sin tan exp log sqr rnd rgb createobject getobject getref abs int fix round sgn scriptengine scriptenginebuildversion scriptenginemajorversion scriptengineminorversion asc ascb ascw chr chrb chrw filter instr instrb instrrev join len lenb lcase ucase left leftb mid midb right rightb replace space split strcomp string strreverse ltrim rtrim trim isarray isdate isempty isnull isnumeric isobject typename vartype adOpenForwardOnly adOpenKeyset adOpenDynamic adOpenStatic adLockReadOnly adLockPessimistic adLockOptimistic adLockBatchOptimistic adRunAsync adAsyncExecute adAsyncFetch adAsyncFetchNonBlocking adExecuteNoRecords adStateClosed adStateOpen adStateConnecting adStateExecuting adStateFetching adUseServer adUseClient adEmpty adTinyInt adSmallInt adInteger adBigInt adUnsignedTinyInt adUnsignedSmallInt adUnsignedInt adUnsignedBigInt adSingle adDouble adCurrency adDecimal adNumeric adBoolean adError adUserDefined adVariant adIDispatch adIUnknown adGUID adDate adDBDate adDBTime adDBTimeStamp adBSTR adChar adVarChar adLongVarChar adWChar adVarWChar adLongVarWChar adBinary adVarBinary adLongVarBinary adChapter adFileTime adDBFileTime adPropVariant adVarNumeric adPersistADTG adPersistXML adParamSigned adParamNullable adParamLong adParamUnknown adParamInput adParamOutput adParamInputOutput adParamReturnValue adCmdUnknown adCmdText adCmdTable adCmdStoredProc adCmdFile adCmdTableDirect