Составить блок схему к готовому коду

Private Sub Command1_Click()
Dim nachalo As Long, konec As Single, a As Long, b As Long, C() As Integer, M() As String, konec1 As String, p As Integer
label1.Caption = "Введённое число:"
Label2.Visible = True
Label3.Visible = True
Label4.Visible = True
Text2.Visible = True
Text3.Visible = True
Text4.Visible = True
dec = Val(Text1.Text)
l = Len(Text1.Text)
 For i = 1 To l
  If Mid(Text1.Text, i, 1) = "." Then
    razd = i
  End If
 Next
nachalo = Left(Text1.Text, (razd - 1))
konec = dec - nachalo
 
nachaloBin = nachalo
nachaloHex = nachalo
nachaloOct = nachalo
konecBin = konec
konecHex = konec
konecOct = konec
 
 
 
'Перевод начала в двоичную сс
i = 0
a = nachaloBin Mod 2
b = nachaloBin \ 2
ReDim C(0) As Integer
C(0) = a
 Do While b <> 0
  i = i + 1
  ReDim Preserve C(i) As Integer
  a = b Mod 2
  b = b \ 2
  C(i) = a
 Loop
 For x = i To 0 Step -1
  Text2.Text = Text2.Text + Str(C(x))
 Next
'Перевод конца в двоичную сс
n = Val(Text5.Text)
konecBin = konecBin * 2
 For i = 1 To n
 j = 1
  If Fix(konecBin) <> 0 Then
   Do While Mid(konecBin, j, 1) <> ","
    konecBinNew = konecBinNew + Mid(konecBin, j, 1)
    j = j + 1
   Loop
    konecBin = Val("0." + Right(konecBin, (Len(konecBin) - (j))))
    konecBin = konecBin * 2
  Else
  konecBinNew = konecBinNew + "0"
  konecBin = konecBin * 2
  End If
  Next
'слепливаем начало и конец!))
Text2.Text = Text2.Text & "," & konecBinNew
 
 
 
 
 
 
End Sub