Function BinToStr(Bin)
  Dim cl1, cl2, cl3, pl1, pl2, pl3, L
  cl1 = 1
  cl2 = 1
  cl3 = 1
  L = LenB(Bin)
  Do While cl1<=L
    pl3 = pl3 & Chr(AscB(MidB(Bin,cl1,1)))  
    cl1 = cl1 + 1
    cl3 = cl3 + 1
    If cl3 > 300 Then
      pl2 = pl2 & pl3
      pl3 = ""
      cl3 = 1
      cl2 = cl2 + 1
      If cl2 > 200 Then
        pl1 = pl1 & pl2
        pl2 = ""
        cl2 = 1
      End If
    End If
  Loop
  BinToStr = pl1 & pl2 & pl3
End Function