Разбить строку на подстроки по делиметру - VB

Формулировка задачи:

Вот дана переменная a, которая равна a="29/02/04" как сделать три переменные b,c,d что b=29 c=2 d=4 т.е. извилечь числа из переменной а и получить три перменные? Заранее спасибо!

Решение задачи: «Разбить строку на подстроки по делиметру»

textual
                            Листинг программы 
                        

                            'CRT Strtok
'Demonstrates the CRT strtok function.
'*****************************************
 
#include once "crt.bi"
 
Dim As String tstr, tmpstr, delim
Dim zret As Zstring Ptr
 
'Create delimiters
delim = " ,!-"
'Create parse string
tstr = "Hello-World, From Freebasic!"
'Create a working copy of string
'strtok will alter original string
tmpstr = tstr
'First call with string and delimiters
zret = strtok(tmpstr, delim)
'Check for a NULL pointer
If zret <> NULL Then
    Print zret[0]
    'Parse rest of string
    Do 
        'Call with NULL to work on same string
        zret = strtok(NULL, delim)
        If zret <> NULL Then
            Print zret[0]
        End If
    Loop Until zret = NULL
End If
Sleep
End
                        