求高手帮忙为下面代码设计一个流程图 谢谢啦

CommonDialog1.DialogTitle = "请输入绘图数据源" ‘设置对话框名
CommonDialog1.Filter = "Source File (*.txt)|*.txt" ‘文件类型
CommonDialog1.ShowOpen

Set FileSystemObjectH = CreateObject("Scripting.FileSystemObject")
SetTextStreamH=FileSystemObjectH.OpenTextFile(CommonDialog1.FileName)                   ‘将用户所选的数据源读入
Do
SourceText = SourceText + TextStreamH.ReadLine
On Error GoTo FileError
Loop                   
//将读入的数据连起来
FileError:
Count = Len(SourceText) 
//取得数据长度
Buf = SourceText
Do Until i > (Count - 1) * 2
 If Chr(Buf(i)) = "/" And i <> (Count - 1) * 2 Then
  i = i + 2
  Do Until Chr(Buf(i)) = "A" Or Chr(Buf(i)) = "B" Or Chr(Buf(i)) = "C" Or Chr(Buf(i)) = "D" Or i = Count * 2
      If Chr(Buf(i)) = "." Then
         Number = Number + "."
      Else: Number = Number + Chr(Buf(i))
      End If
      i = i + 2
      If i > (Count - 1) * 2 Then Exit Do
  Loop                   
//将数据重新组合
  GraphTemp = Number
 
   If k = 80 Then
Graph1.Cls          
//清空绘图区
    k = 0
  End If
   If GraphTemp = "" Then
   MsgBox "所选数据源中不包含指定地温度数据"
   End If
  ReceiveData(k) = Val(Number) 
//区缓冲区中数值的前4位, 即最大值为99.9度.
  GraphTemp = ""              
 //清空缓冲区
   x(k) = k
   Y(k) = ReceiveData(k)
   If k = 0 Then
     Graph1.PSet (k, Y(k))     
//指定原点
   Else
      Graph1.Line -(x(k), Y(k))
 //绘线
   End If
   TimeDelay 400
 k = k + 1
  End If
Number = ""
i = i + 2
Loop --------------------编程问答-------------------- 抓苦力的

补充：VB ,  基础类