REM mengonversi string untuk membentuk data
functionTointeger (str, num)
str = trim (str)
ifstr = "" ornotisnumeric (str) lalu
tointeger = num
kalau tidak
tointeger = clng (str)
endif
fungsi endfungsi
REM mengubah string menjadi data presisi ganda
functionTodouble (str)
str = trim (str)
ifstr = "" ornotisnumeric (str) lalu
Todouble = 0,0
kalau tidak
Todouble = cdbl (str)
endif
fungsi endfungsi
REM mengonversi string menjadi data boolean
Fungsi Toboolean (STR)
str = lcase (trim (str))
ifstr = "true" orstr = "t" lalu
Toboolean = Benar
ElseIfisnumeric (str) Lalu
ifclng (str) <> 0thentoboolean = true
kalau tidak
Toboolean = false
endif
fungsi endfungsi