'Sprawdzenie, czy ciąg znakowy można konwertować na liczbę typu Integer:
str = "45"
if isNumeric(str) = true then msgbox CInt(str) + 1

'Ponieważ w języku VBScript nie możemy bezpośrednio wyciągnąć znaków jak elementy z tablicy,
'więc trzeba zastosować złożenie funkcji right oraz left:
str = "Milicja"
for i=1 to len(str)
	ch = right( left( str, i ), 1 )
	msgbox ch
next

'Rozbijanie ciągu na podciągi przez w miejscu wystąpienia znaku spacji:
str = "wersja polska telewizja polska"
str_len = len(str)
str_token1 = split(str, " ")(0)
msgbox str_token1
tokens = split(str, " ")
for i=0 to ubound(tokens)
	msgbox tokens(i)
next

str2 = "wersja polska telewizja polska" & vbCrLf & _
	"milicja obywatelska czuwa zawsze"
msgbox str2
str2_token_line = split(str2, vbCrLf)(0)
msgbox str2_token_line

'Przykład tokenizacji złożonego ciągu znakowego, w którym wyciąga się
'tokeny oddzielone spacją i sprawdza, które są liczbą. Następnie sumuje się uzyskane liczby:
s = "milicja 45 wersja 0 ile jest nikt 90" & vbCrLf
s = s & "to czego nie 78 45 jest not" & vbCrLf
s = s & "45 9 2 abc 8 xyz" & vbCrLf
s = s & "to czego szukasz 123 stoi nad 92"
msgbox s

suma = 0
tkn=0
lines = split(s, vbCrLf)
for each line in lines
	tokens = split(line, " ")
	for each token in tokens
		if isNumeric(token) = true then
			suma = suma + cint(token)
			tkn=tkn+1
		end if
	next
next
msgbox "tkn: " & tkn

'Aby sprawdzić, czy podciąg znajduje się w ciągu znakowym:
str = "Milicja Obywatelska czuwa"
const caseSensitive = 0 'Gdy istotna jest rozróżnienie wielkości znaków
const caseInsensitive = 1
if InStr(1, str, "czuwa", 0) > 0 then
	msgbox "Podciąg występuje w ciągu"
else
	msgbox "Podciąg nie występuje w ciągu"
end if