如何用VB实现词法分析程序的功能？

我想用VB对输入的源程序（写字本）进行词法分析。
    例如：当输入
  main()
{ int i=10;
  while(i)
  i=i-1;
}
 得到的结果：(1,main) (26,() (27,)) (30,{) ......
输出的格式为一个二元组：(syn,token或sum)构成的序列。其中
 syn为档次的种别码
 token 为存放的单词自身字符串
 sum 为整形常量
 空格一般用来分隔ID,NUM,专用符号和关键字，运行过程中被忽略。
   各种单词的种别码为：
 单词符号       种别码
 main           1
 int            2
 char           3
 if             4
 else           5
 for            6
 while          7
 .              .
 .              .
 .              .
 (              26
 )              27
 现在问题是vb如何对一个文本逐行扫描，识别关键字和专用符号等。